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COP Y ft 

digital 



THIS SO 
'7 N A S I M 

the inch 
software 

VIDEO OR OTHERWISE 
EXCEPT FOR USE ON 


MADE AVAILABLE 
SUCH SYSTEM AMO 


THESE 

sop r>i i 

THE I ;\j F 
WITHOUT 
M i J' M E N 

de; 

Of 


TERMS. 


TITLE 

TIMES 



PR J *■ 

TO AMY OTHER PERSON 
TO ONE WHO AGREES 1 TO 
TO AMD OWNERSHIP OF THE 
REMAIN IN DEC. 

is subject ro CHANGE 
NS'tRUED AS A COM- 


0 RESPDMf 
S 0 r T w A R E • ) H E Dll IP M E N f 


WHICH IS 


IE OR RELIABILITY 
MOT SUPPLIED B i DEC. 


EJECT 



X V 'i / m U M D s 


:j p s 


version vi a ooo 


COPYRIGHT 1971 ,19/2,1973.1974,1 975 

BY 

D I G 1 1 A L E 0 U l P M E N T CHRP '1 R A. T T 0 H 

M a Y M a R ) , M A S S A C H I I S E T X S , 


/ EDIT 12-19 

/ (!) 1 ?/4/74 - BOD I FY GLOBAL PUT TO AVOID EXCESS MODS SCRAMBLING & 

/ I USER r KILL "CLO SYNTAX which deallocates all blocks £ 

/ LET %E = -.04 INDICATE NO ’’THANK YOU" OR ERROR PRINT OUT & 

/ MODIFY X.CON TO ALLOW 77777 7 TO BE. WRITTEN TO CORE BY X.SVS 

/ (?) t /I 7/75 - INSERT BUFFER pnQL (RP) CODE 
/ (3) 1/20/75 ( JAR) CORRECT $S CALCULATIONS 

/ C4) 1/24/75 INSERT BUFFER POOL (RF) CODE 
/ (5) 1/31/75 CJAH) - CORRECT XCQ4 CORE W RITE CODE 

/ (6) 2/3/75 CJAH) - CORRECT $4 FOLLOWED BY READ & SKC -777777-3 P R 0 B L E M X 
/ (7) 2/5/75 CJAH) - 7ER0 aRTSW ON DISK ERROR N I THIN MUMPS INSTEAD OF HANDLERS 
/ Cl 2-8) 2/25/75 CJAH) - IMPLEMENT RP03 SUPPORT 
/ (12-9) 2/26/75 (JAM) - IMPLEMENT $Q(-1) SYNTAX 

/ ( 1 2-10 ) 3/20/75 (JAM) - E L I M I. i A T E INTERLOCK BETWEEN PH ASM TO MS 4 DSKACT, 

/ MODIFY $ H I G H EMPTY TO BE -1 OR 0 

/ f 12-11) 6/20/75 (JAM) - CORRECT GLOBAL REPLACEMENT OF POINTER ONLY NODE 
/ (12-12) 7/24/75 (JAM) SEPARATE MUMPS EXEC & INTER INTO 2 PARTS - 1ST 


10/15/75 


/ (12-13) 8/1 1/75 (JAM) 


* P L E M E N T $ J T AND $JC FUNCTIONS 


/ (12-14) 8/20/75 (JAM) ALTER CHARACTER HANDLING ROUTINES 


/ (12-15) 9/4/75 (JAM) 

/ (12-16) 9/12/75 (JAM) 


INSTALL XVM CODE TO ALLOW PARTITIONS TO 1?8K 
INSERT IMMEDIATE READ BUFFER POOL CODE 


/ (12-17) 9/25/75 (JAM) ENHANCE SNAP SPEED, ALLOW MORE THAN READ ALL 
/ ON ONE COMMAND t.INE, CORRECT GO to A PART to T T H I N A CALLED PROGRAM, 

/ TAKE % WATCH DOG ANp CLOCK HANG CODE OFF J NT SIDE, ALLOW EMERGENCY 

/ CLOSE DUPING DISK ACTIVITY, PERMIT C N T L U FROM TERMINAL ONLY, 

/ AND CLEAR PROG BUFFER ON PROG SPACE OVERFLOW 

/ ( 12-18) 10 / 15/75 CORRECT KEY DETECTION AND FOR -UN TIL SYNTAX 

/ (12-17) 9/22/75 (JAM) SPEED SWAPPING & STRING PROCESSING 


/•'BIS SYSTEM wAS ) R I G I w A L L Y DEVELOPED AT THE LABORATORY 
/OR COMPUTER SCIENCE OF MASSACHUSETTS GENERAL HOSPITAL AND WAS 
/SUPPORTED BY RESEARCH GRANTS FROM THE NATIONAL CENTER FQR 
/HEALTH SERVICES RESEARCH AND DEVELOPMENT (MS 00240) AND FROM 
/THE NATIONAL INSTITUTE OF GENERAL M EPICAL SCIENCES ( G H 15?87). 
/ 

/ 



p a p 


3 




PAGE 


MU^PS 100 


7 7 

/PAR AM 

ETERS FOR 

C 0 NO IT 1 0 M A L ASS EM 6 L Y 

7 9 

/ 

....NORMALLY ENTERED THROUGH .DAT SLOT -10 ( SECONDARY INPUT) 

79 


.DEC 


HO 

/THE FOLLOWING 

PARAMETERS OUST BE ENTERED THROUGH THE SECONDARY 

8 1 

/ 

INPUT . 

.. THERE IS NO DEFAULT CONDITION FOR THEM 

8 ? 

/ 

DC01 

/NUMBER OF DC 01 SB’S 

6 9 

/ 

PRTNUM 

/NUMBER OF PARTITIONS 

«4 

/ 

CORE 

/CORE SIZE IN THOUSANDS (EG 32) 

95 

/ 

RP02 

/NUMBER OF RP02 DISKS 

9 6 

/ 

p n — - 

.M'l C V J 

/NUMBER OF RP03 DISKS 

Hi 

/ 

RF 1 5 

/NUMBER OF DECDISKS 

6 Q 

/ 

OTA 

/NUMBER OF DECTAPE TRANSPORTS- 

99 

/ 

PRTSIZE 

/SIZE OF A PARTITION IN WORDS' 

9 0 

/ 

nog 

/NUMBER OF GLQBALS 

91 

/ 



^ 7 

/the following 

MAY APPEAR ON THE SECONDARY INPUT, BUT IF 

99 
0 1 

/not there, ape 
/ 

ASSIGNED A DEFAULT VALUE 

3 -f 

95 

/ 

. I FUND 

PFAIL 

96 

PFA1L= 

0 

/POWER FAILURE OPTION 

9 7 
o a 


.FNOC 


9 o 

/ 

/ 

GARBAGE 

COLLECTOR PARAMETER TO INHIBIT RUNNING OF GARBAGE 

1 0 0 

/ 

COLLECTOR IN THE ROUND ROBIN 

3 0 1. 

/ 



1 0? 


. 1FUND 

G R Q W 

1 0 9 

GGRDW= 

0 


1 0 4 


. EnOC 


1 0 6 


. I FUND 

submerge 

10 6 

SUBMER 

GS = 1 


1 0 7 


.ENDC 


108 


. I FUND 

RP09 /M2JAH8* 

1 0 9 

PP03=0 


/*! 2JAH8* 

1 1 0 


.ENDC 

/*1 2 JAH8* 

1 1 1 


. I FUND 

API, 

3 1 2 

A P I = 0 



3 1 9 


.ENDC 


1 1 4 


. IFNOZ 

API 

1 1 5 

INTON= 

ION 


1 3 * 

T NTOFF 

= I OF 


3 1 7 


.ENDC 


3 1 « 


. 1FUND 

X V m /* 1 2 JAH1 5* 

1 1 9 

XVM = 0 


/ASSUME NON-XVM SYSTEM /M2JAH15* 

1 9 0 


.ENDC 

/* 1 2 JA4 1 5* 

3 21 


. I FUND 

DCOUNT 

122 

OCOUNT 

= 10 


1 2 9 


. ENDC 


1 7 4 


. IFUNP 

LP15 

1 26 

LP 1 5=0 



1 26 


. E N 0 C 


177 


. I FUND 

LP15.2 


LP1 5.2=0 



PAGE 5 vu* 
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1 7 9 


. EM DC 



no 


. IFUND 

C ft 0 3 R 


1 01 


C ft 0 3 6 = 0 



1 3 2 


C ft X X = Q 



1 33 


.ENDC 



134 


. IFUND 

C ft 1 5 


1 35 


CR1 5=0 



1 3 8 


C R X X = 0 



13 7 


. ENDC 



138 


.IFPNZ 

CR03B 


1 39 


.IFPNZ 

CR1 5 


1 A A 

I ^ -J 


WARNING DO NOT 

ASSEMBLE WITH 

C ft 0 3 B AND CR 1 5 BOTH POSITIVE AN D NON-ZERO 

1 41 


. END 



1 4 3 


• ENDC 



143 


.ENDC 



1 4 4 


. JFPNZ 

CR03R+CR15 


14 5 


C R X X = 1 



1 46 


.ENDC 



147 


.IFUND 

MONEY 


1 48 


fvj 0 H F i~Q 


/NO MONEY FUNCTION 

1 4 Q 


.ENDC 



1.50 


.IFUND 

F MONEY 


151 


FMQMEY=0 



152 


. ENDC 



1 5 3 


. IFPNZ 

F MONEY 


159 

0 0 u 0 0 1 A 

NON EX = 1 



155 


.ENDC 



156 


. IFUND 

M T A 9 QH 


157 


NT A 9 ON =0 


/NO 9-TRACK DRIVES 

158 


.ENDC 



159 


. IFUND 

MX A? ON 


160 


M T A 7 0 N = 0 


/NO 7-TRACK DRIVES 

1 61 


.ENDC 



1 62 

0 0 0 0 0 1 A 

M T A = M T A 7 0 N + M f A 9 0 N 

/TOTAL NUMBER OF MAGTAPE DRIVES 

163 


.IFUND 

CLKHZ 


164 


CD KHZ, = 50 


/CLOCK FREQUENCY IN HERTZ 

165 


.ENDC 



166 


.IFUND 

SLICE 


16 7 


SLICE= 150 


/ttme sharing slice in milliseconds 

1 68 


.ENDC 



1 6 9 


.IFUND 

NTIMEP 


1 7 9 


W T I M E R = 6 0 


/I MIN DEFAULT SIGNOFF 

171 


. ENDC 



172 


. IFUND 

DUMMY 


173 


DUMMY=0 



1 7 4 


.ENDC 



175 


.IFUND 

TTCHAR 


176 


T T C H A R s 2 6 


/NUMBER OF CHARS I M EACH TT BUFFER 

177 


• E 9 DC 



1 73 


. I FUND 

TTALEM 


1 79 


TTALEM=10 


/TT BUFFER "ALMOST EMPTY" CHAR COUNT 

1 8 0 


.ENDC 





6 


PA 


PS 


1 0 0 


181 



. I FUND 

TTALFL 


182 



TTALFL=5 


/IT BUFFER " ALMOST FULL” CHAR COUNT 

188 



• ENDC 



184 



. IFtfMD 

DT6SZ 


185 



D T R S Z = 2 5 6 



186 



, EM DC 



1 87 



. I FUND 

RPOPTD 


18 8 



R P 0 P 1' D = 2 


/RP02 PROGRAM FILE OPTIMUM SPACING 

1 8 9 



.ENDC 



1 8 0 



. IFUMD 

RPOPTG 


3 81 



RP3PTG=6 


/RPO 2 GLOBAL PILE OPTIMUM SPACING 

192 



.ENDC 



19 1 



. I FUND 

RF0PTO 


194 



R F 0 P T D = 2 


/ R F 1 5 PROGRAM FILE OPTIMUM SPACING 

1 95 



.ENDC 



1 96 



. I FUND 

RFOPTG 


197 



RFDP TG=4 


/ R F 1 5 GLOBAL FILE OPTIMUM SPACING 

19 8 



.ENDC 



199 



•IFUMD 

modify 


200 



M 0 D 1 F Y = 1 



201 



. FMDC 



202 



. I FUND 

1/11 

/*1 2JAH10* 

2 0 3 



VI 1=0 


/♦12JAH10* SET POS TO RETAIN OLD $ H I G H SEMANTI 

20 4 



, EM DC 


/♦12JAH10* 

205 



. I FUND 

P. 4 RITE 

/♦12JAH16* 

2 06 



PWRITE=Q 


/IMMEDIATE WRITE TO DISK /*12JArfl6* 

20 7 



.ENDC 


/*12JAH16* 

20 6 



/THE FOLLOWING 

MAY NOT RE CHA’MGt 

•D BY SECONDARY INPUT 

209 



/ 



210 

0 0 0 4 0 0 

A 

RPSECT=256 



211 

0 0 0 1 0 0 

A 

BL3C6=64 



21 2 

0 0 o 0 0 3 

A 

RP=RP03*2+RP02 

/NUMBER 

OF LOGICAL RP UNITS M2JAH8* 

21 3 



/ 



214 



. IFUMD 

COMMAND 


215 



COMMAND=73 



216 



. EM DC 



217 



. IFMQZ 

COMMAND 


218 



COMMAND=73 



219 



• ENDC 



2 20 



•IFPNZ 

COMM a md- 1 69 


221 



C0MMAMD=169 



222 



.ENDC 



22 3 

000111 

A 

CQMMAND = COMMAND-M /3*3 + J 


224 

000031 

A 

C 0 M B U F F = C 0 M M A N Q + 2 / 3 


225 



/ 



2 2 6 



. I FUND 

STRING 


227 



STRI NG=73 



22° 



• ENDC 



229 



. IFNOZ 

STRING-72 


230 



STRING=73 



231 



• ENDC 



232 



•IFPNZ 

STRING-173 




PAGE 


7 


m u 'PS 1 0 o 


733 



STR] MG=179 



234 



• EM DC 



735 

00011 1 

A 

STR I *G=STR I NG+ 1 / 3 * 3 + 1 


2 3 6 

0 0 0 0 3 1 

4 

S T R A C C = S T R I N G + 2 / 3 


237 



/ 



2 33 



.OCT 



2 3 4 



.ifpnz 

API 


240 

705521 

4 

I N r 0 M = 7 0 5 5 2 1 


/FBI 

241 

7 C 5522 

A 

I N T 0 F F = 705522 


/OBI 

2 42 



.ENDC 



243 



. IFUND 

M T COL 

/♦12JAH17* 

2 4 4 



M T C □ L» = 7 3 


/♦12JAH17* 

245 



. CM DC 


/♦12JAH17* 

246 



. IFPNZ 

M T C 0 L -STRING 

/* 1 2 JAH1 7* 

247 



MTCOL=STRING 


/ * 1 2 JAH1 7 # 

24 8 



• CM DC 


/* 1 2 JAH1 7 * 

249 



/ 



250 



/system parameters based on 

CONFIGURATION TAPE 

251 



/ 



252 



/ 



753 

0 0 0 0 5 0 

A 

NUMTT = DC01 mo 


/TOTAL DEVICES ON DCOl’S 

254 

0 0 0 0 6 2 

A 

DEV = NUMTT+ 1 +0TA+1 +-LP1 5 + LP15. 

2+CRXX+MTA+DUMMY /total devices, including 

255 





/i console: telly and i ptr-ptp 

256 

000051 

A 

NUMA1-NUMTT+1 


/TOTAL TELETYPES, INCLUDING CONSOLE TELLY 

25 1 

000015 

A 

TTwORD=TTCHAR+1/2 


2 5 H 



.DEC 



259 

000003 

A 

PERI0D=CLKHZ*SLI 

CE/,1000 

/CLOCK COUNTS/TIME SLICE 

260 



.OCT 



261 

1600 0 0 

A 

. .C=C0RE*2000 



262 



.IFUND 

. 32K 


263 



. 32K=40 



254 



• ENDC 



265 



. IFUND 

BLOCK 

/IF BLOCK IS DEFINED AS OTHER THAN 0 

2 66 



hlock=o 


/SYSTEM WILL NOT HALT UNTIL USER 

267 



.ENDC 


/TAKES ACTION AND ZEROES H ALTON IN SYSTAB 

263 



/ 



269 



. 1FDEF 

FUNCT1 

/IF USER IS SPECIFYING EITHER SPECIAL 

27 0 



KBBGFUsO 


/FUNCTIONS 

27 1 



• ENOC 


/OR 

777 



. TFOEF 

CSSVT05 

/IS USING COMPUTER SPECIAL SYSTEMS VT05 

27 3 



KBBGFU=0 


/EQUIPPED WITH BADGE READER — 

27 4 



.ENDC 


/SET UP FLAG TO SAY THAT WE NEED %B VARIABLE. 

275 



•TFOEF 

*3 A 0 G I n 


276 



kbbgfu=o 



277 



.ENDC 


/ALSO IF HE'S GOT A BADGIN OF HIS OWN 



GLOBAL D E F I N IT IONS 


PAGE 8 s< U V P S 100 


278 

279 
28 0 
28 t 
282 

28 3 
284 
288 
286 

29 7 
2 9 8 
299 

2 90 

291 

292 

293 
29 4 

295 

296 

297 

299 

29 4 

300 

301 

302 

30 3 
30 4 

305 

306 
5 0 7 
309 

30 9 

3 1 0 
311 
31.2 
313 

31 4 

315 

316 

317 
31 8 

31 9 
3 2 0 
321 
52? 

32 8 
324 


•TITLE GLOBAL DEFINITIONS 
/M2JAH12* 

/GLOBALS USED in ALL SYSTEMS 
/* 1 2 JAH1 2* 

/ INTERNAL 
/ 


.GLOBL 
. GLOBL 
.GLOBL 
.GLOBL 
.GLOBL 
.GLOBL 
.GLOBL 
.GLOBL 
.GLOBL 
.GLOBL 
, JFPNZ 
.GLOBL 
. ENDC 


ACSWRO, ACTEMP, ASSEM, BEGIN, BKCH AR, BOOL, BOOLE 
BUFF , BUFFI , BUN IT , CHAR 1 .CHAR2 .CHECK 

CLKCNT .CLOSE . CLOSE 1 , CONT, CRF I L. D ABSPT, DEC I N.DECOUT 

DEGRAD,DIRPTR,DISLOP.DISPAT,DSKACT,DS-KBFF, DSKCNT 

DTAB1 ,DTABLE, DTATST, DVHANG, DVHNG1 .END. EVAL . EVAR 

EXIT,FORTST,GBAD,GRLTPT.GBWD2 .GCHANP 

GDI SK , GEN D , GETKEY , GHDOLD , GKE AD , GHI , GLFNCT . GLOBAL 

GSYM.GSYMBO, GUN IT. H ALTON. HANG, HANG1 , HLTSWT 

ICHART , ID, INDTAB, IPLACE , IPOINT, IVAR . KEY, KEY. 2 , KEYCHK , KVAR 

LNT8PT . LQC . L VAR . M , MONIT . MVAR . N8PNT . OBPMT . QCHAR . QCHARI 

XVM /* 1 2 JAH l 5* 

MEXEC /*12JAH15* 

/* 1 2 JAH1 5* 


.GLOBL OCTOUT, OUTPUT, 3PL ACE. OPNCNT.OPOI NT. 0?1 .OTEXT , OUT, QUTTAB, PACKEM 
.GLOBL PTEMPX.PRDCNTX.P900LX /*12JAH17* 

.GLOBL P ART, P LACE 1 , PLACE? , PLENG, POINT1 , POINT2 , PRGDRT , PRINT1 , PRNCQV , PROD A 

.GLOBL PROG.PRTEND, PRTIDX , PRTIN, PRTNMB , PRTPTR, PTTRAN . PTWHO 

.GLOBL PUSER,RDC NT, REMOVE, RUNDOWN, SAVE, SCR IP, SCR I PS, SECOND 

.GLOBL SE T 10, SPOI NT, S T ACH4, STACH 8, STACK, STA TCH, STAT1 ,ST ATX .STEP 

.GLOBL STOR1 , STR4 , SUBOPT .SURQUE, SUM , SVAR, SVS, SWAPSW , SWPC NT 

.GLOBL SYM, SYMBEG, SYMBOL, SYMBOT, SYMS , SYNTAX, TEMP, TEMPI 

.GLOBL TEMP2, TERM, USABLE. UNSAVE, XOUT5 A, USER, USERS, VAL, VBLOCK 

.GLOBL VEND.WHOTAB, WRPART , WRTCNT . WRTSW . WVAR , XFRDN , X0UT4A , XVAR, . JCFN1 , . .BM 

.GLOBL XC01,XCI1.XCI3 

/EXTERNAL - MUMPSB 


/ 


o. 

o 


E 


.GLOBL 8EGI0. BOOLX. CALLP.CALL7 .CALL71 ,CFUN1 , DABSXF, DISTR 
.GLOBL DL2,OMP,DMPOLD,OSKRDE,DSKwRT,ERRORO,ERROR2,FILE /*! 2JAH17* 
.GLOBL FILES, FTABLE. FUNCT.FUNOUT.G ARB. GETNEW, GFREE , HALT , HALT 1 .HALTER 
.GLOBL MUMPS? /*12JAH17* 

.GLQRL HFGLOJ , HKBENT, HOUT , HTPENT, LOCK, 0F2 , OF3 ,OF5 .OLAY 
. GLOBL QF7 , QF8 , RDCNTX .SNAFU, TEMPX , UNLOCK , XDISLO 
/ 

/EXTERNAL - B1JBF 
/ 

.GLOBL CLOCK, DATE, DATE. 1 .DATE. 2, DXKEY, GRUFF 1 . 3CHAIN 
.GLORL M U BUFF /*12JAH17* 

.GLOBL G TABLE . GTMBUF , GTMB . 1 . MONTH , PAST AB 
/ 

/EXTERNAL - MfJPT 
/ 


325 

326 

327 
32 8 
329 


.GLOBL P TP I M . PTPOUT.PTROUT 

.GLOBL M?JPT /=M 2JAH1 7* 

/ 

. I FPNZ API 
.GLOBL NOFLAG 



P AGP 1 


GLOBAL DEFICIT I HNS 


9 M ( 1 V| P s 1 0 0 


0 50 
301 
30 ? 
3 5 3 

33 4 
3 0 S 


. EM DC 
/ 

/EXTERNAL - MDUMp 

. GLOBL- 0 LI M P 

.EJECT 


/*! 2JAH17* 
/♦12JAH17* 
/*12JAH17* 
/* 1 2 JAHi 7 * 



page 10 


i oo 


GLOBAL DEFINITIONS 


M [j m p 5 


336 

/*! 2JAH12* 



337 

/MONEY GL08AIS 



3 3 R 

/*i2JAH12* 



339 

, IFPNZ 

A 0 N E y 


340 

/ 



341 

/INTERNAL 


34? 

/ 



34 3 

. GLOBL 

STR4. TEMP, IPOINT,MEUNCT,SVE, TEMPI , POIMTl 


344 

. GLOBL 

CHARI , SYNTAX,! CHARI , OCHAR , OUTPUT , SAVE , UHS A VE 


345 

/ 



3 4b 

/ 


/*12JAH17* 

3 47 

/EXTERNAL 

/*12JAH17* 

349 

/ 


/*12JAH1 7* 

349 

.GLOBL 

moneym 

/*! 2 JAH1 7* 

350 

.ENDC 



351 

/ 



35? 

. IFPNZ 

EMQMEY 


353 

/ 



354 

/INTERNAL 


355 

/ 



356 

. GLOBL 

FLOAT . MONYSW , V ALF , BUFF 2 


35? 

.ENDC 



359 

/ 



359 

.EJECT 




/ 
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360 /*J.2JAH12* 

361 /SCANNER GL08ALS 

362 /*12JAH12* 


363 

364 

365 

366 

367 
3b 8 

369 

370 

371. / 

372 

373 

374 

375 

376 

377 
37 8 

37 9 

390 
381 
387 
39 3 
394 

385 

386 

387 

38 8 
3 8 Q 
3 9 0 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 


.IFPNZ DC 0 1 
/ 

/INTERNAL 

/ 

. GLGBL X 0 U T 3 , M 0 M T T Y , C G N S & , R E A D J A 
. 1FQEF KBBGFU 
.GLOBL % 0 
• ENDC 


/EXTERNAL - MU DC 


/ 



.GLGBL 

T FSET.SCAis 

J0,SCAMCT,K9QUT,TPIN 

. GL03L 

MU DC 


•GLOBL 

I NTSC 0 


.IFPNZ 

QCOl-t 


.GLOBL 

I NTSC 1 


. ENDC 



.IFPNZ 

DC 01 -? 


•GLOBL 

I JTSC7 


• ENDC 



.IFPNZ 

DCO 1 -3 


.GLOBL 

I NTSC 3 


.ENDC 



.IFPNZ 

DCO 1 -4 


.GLOBL 

l NTSC 4 


.ENDC 



.IFPNZ 

DCO 1-5 


.GLOBL 

l N ISC5 


.ENDC 



.IFPNZ 

DCO 1-6 


.GLOBL 

I NT SC 6 


. ENDC 



.IFPNZ 

DCO 1-7 


.GLOBL- 

I NTSC 7 


.ENDC 



/ 



.ENDC 



.EJECT 




/*12JAH1 7* 



AGE 12 

'* U v ' P S 

) 0 0 

GLOBAL DEFINITIONS 



401 



/*! 2 JAH 12 * 



402 



/RP GL33ALS 



40 3 



/* 12 JAH 12 * 



404 



.ifpkz 

RP 


405 



/ 



406 

A r\ 7 



/INTER f 1 
/ 

. GLOBL 

1 AL 


404 



RPWRIT , RPSTA i? , RPERRS , NFL AG , GUN I T , RPERS T , SUBQUES 

/* 1 2 JA4 1 6* 

409 



. GLUBL 

RPDRV. RPAODR , PR TN^B, RPTR AN, RUNDOWN 


410 



/ 



41 1 



/EXTERNAL * R P 


412 



/ 



41 3 



. GL08L 

RPFLAG 


41 4 



•GLOBL 

A i J R P 

/♦12JAH17* 

415 



/ 



41b 



.ENDC 



41 7 



.EJECT 
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GL03AL DEFINITIONS 


418 


/*12JAH12* 


419 


/RE GL3BALS 


420 


/*1 2JAH12* 


421 


.IFPWZ 

RE 1 5 

4 2? 


/ 


423 


/INTERN 

AL 

424 


/ 


42 S 


• GLOBE 

NFL AG, RFERRS, REST AT , REAORO , RE ADR 1 , PR TN M3> RFTR AN , BPWR IT /*12JAH16* 

426 


/ 


427 


/EXTERNAL - MHRF 

4?8 


/ 


42 9 


• GLQBL 

REFLAG 

^30 


.GLORL 

4 U R E /*12JAH17* 

4.31 


/ 


432 


. ENDC 


433 


.EJECT 




PAGE 1.4 


M [1 v p s 1 0 0 


GLOBAL DEFINITIONS 


4 }4 

/*12JAH12* 


435 

/dectape glcbals 

436 

/*12JAH12* 


437 

• IFPMZ 

OTA 

438 

/ 


439 

/INTERN 

AL 

449 

/ 


441 

. GLOBL 

HANG , PRTNiMR , LOKOT , AVAR, XOUTDT , OT-WHOl 

442 

• GLQBL 

INPUT, NOFLAG, IN, ALTMQD, EXIT, DTERRA.DTBUFF 

443 

.GLOBL 

OTERRB, DTERRS, OUTPUT, DTJMPO, DTJMPI , DTTRAN 

444 

.1FNOZ 

API 

445 

.GLOBL 

DTSKPC 

446 

. ENDC 


447 

/ 


448 

/EXTERNAL - DT 

449 

/ 


450 

.GLOBL 

OT ACT . DTOUT f DTIM , DTOUT 1 , DT IN 1 

451 

.GLOBL 

MU DT 

452 

. IFNOZ 

API 

45 3 

.GLOBL 

OTENT1 , t) T E U T 2 

454 

.ENDC 


455 

/ 


456 

.ENDC 


457 

.EJECT 



/ * 1 2 JAH 1 7* 



PAGE 1.6 


MUMPS 100 


GLOBAL 9 EE INITIO US 


458 

/♦12JAH12* 


459 

/MT GL39ALS 


469 

/*! 2 JAH1 2* 


461 

• IFPMZ 

-* r a 

462 

/ 


46 3 

/ INTERN 

AL 

464 

/ 


465 

•GLOBL 

MTSTRT, MTERRS, -If UNI , M r#HfU , MTTR A M , I to PU T , MT8UFF 

4 6 6 

•GLOBL 

MTPUT , M TGET , MTEOM 

467 

•GLOBL 

MTOVFL 

4 6 8 

/ 


4 6 9 
a 1 n 

/EXTERN 

/ 

. GLOBL 

AL - MiHT 

471 

IENTRY 

47? 

•GLOBL 

A IJ M T 

473 

/ 


4 74 

• ENOC 


475 

• EJECT 



/* 1 2 JAH 1 7* 


/ *1 2 J AH1 7 * 
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M [J p c 

5 i 0 o 

GLOBAL DEFINITIONS 



476 



/*12JAH12* 



All 



/IP globals 



478 



/*12JAH12* 



479 



.IFPNZ 

LP15 


49 0 



/INTERN 

Ab 


491 



/ 



482 



.GLOB L 

LPWHO, LPTRAM , LPSTA .LPWHO 


44 3 



/ 



484 



/EXTERNAL 


496 



/ 



496 



. GL09L 

LPBIM, LPOiJT 


487 



. GL03L 

4ULP 

/♦12JAH17* 

488 



/ 



499 

4QA 



. IFPNZ 
/ 

LP15.2 


*T J* 

491 



/ 

/INTERNAL 


492 



/ 



493 



. GLGBL 

LPWH02.LPTRN2 


494 



/ 



495 



/EXTERNAL - MULP 


496 



/ 



497 



. GLOBL 

LPBI N2 # LP0UT2 


499 



. GL08L 

MULP2 

/* 1 2 JAH1 7* 

499 



/ 



500 



, ENDC 



501 



/ 



502 



.ENDC 



50 3 



.EJECT 
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MUMPS 10U 


GLOBAL DEFINITIONS 


504 

505 

506 

507 

508 

50 0 

51 0 


/*12JAH12* 

/CARO READER GL08ALS 
/*12JAH12* 

.IFPNZ CRXX 
/ 

/INTERNAL 

/ 


51 1 
512 
518 
51 4 

515 

516 

517 

518 


. GLOB L C D WHn , C DST A T , C DTR A N 
/ 

/EXTERNAL - MUCR 
/ 

. GL08L CD BOUT 

. GLOBL MUCR /*12JAH17* 

/ 

. ENDC 



PAGE 19 MU^PS 100 MNEMONIC DEFINITIONS 


51Q 

520 

521 

522 
52 9 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 
5 3 4 

535 

536 


100000 A 


000000 A 


0 0 0001 A 
o 0 000? A 
000003 A 


.TITLE MNEMONIC DEFINITIONS 
. EBREL 

/ 

/ 

/SUBROUTINE CALLS TO THE SEVERAL REENTRANT SUBROUTINES ARE 
/ NOTED BY '’CALL” INSTEAD OF "JMS”, MAKING THE LISTING 

/ EASIER TO READ. 

/ 

CALL=JMS 

/ 

/ 

ERRQR=0Q00Q0 /CAL USED FOR ERROR CALLS 

/ 

/ DEFINITIONS FOR ERROR CALLS 

/ 

ERR1=1 

ERR2=2 

£RR3=3 


537 

000004 

A 

ERR4=4 

5 38 

0 0 0 0 0 5 

A 

£RR5=5 

52P 

000006 

A 

ERR6=6 

540 

000007 

A 

ERR7=7 

541 

000010 

A 

ERR 1 0 = 10 

542 

0 0 0 0 1 1 

A 

ERR 11 = 1 1 

543 

0 0 0 0 1 2 

A 

ERR 1 2 = 1 2 

544 

000013 

A 

ERR 1 3 = 1 3 

545 

000014 

A 

ERR1 4=14 

546 

0 0 0015 

A 

ERR 1 5 = 1. 5 

547 

000016 

A 

ERR 1 6 = 1 6 

5 4 H 

0 0 0 017 

A 

ERR 1 7= 1 7 

549 

000020 

A 

ERR20=20 

550 

000021 

A 

ERR2 1 =2 1 

551 

000022 

A 

ERR22=22 

55 2 

000023 

A 

ERR?3=23 

553 

000024 

A 

ERR24=24 

554 

000025 

A 

ERR25=25 

555 

000026 

A 

ERR26=26 

556 

000027 

A 

ERR27=27 

557 

000030 

A 

ERR 3 0=30 

559 

00 00 3 1 

A 

ERR 3 1 = 31 

559 

000032 

A 

ERR32=32 

560 

000033 

A 

ERR33=33 

561 





/22 . 23 AND 26 DETECTED AT INTERRUPT LEVEL 
/AND ARE INVOKED IN A SPECIAL MANNER 


EJECT 
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1NSMOWIC DEFINITIONS 



562 



/TWO MICRO-INSTRUCTIONS HOT INCLUDED I 

N MACRO’S PERMANENT SYMBOL TABLE 

563 

641000 

A 

CLAC=641000 

/CLEAR 

ACCUMULATOR 

564 

660000 

A 

GAS=660000 



565 



/ 



566 



/CONSOLE TELETYPE IOT' 

1 S 


567 



/ 



569 



/ NOTE: CONSOLE 

TELETYPE IS OPERATED IN HALF" DUPLEX MODE 

569 



/ 



570 



/ KEYBOARD 



571 

700301 

h 

K.S P = 700301 

/SKIP 

IP KEYBOARD INTERRUPTING 

572 

70031 2 

A 

KR8=700312 

/READ 

KEYBOARD TO AC 10-17 

573 



/ PRINTER 



574 

700401 

A 

TSF = 7 0 0401 

/SKIP 

IN PRINTER INTERRUPTING 

575 

700402 

A 

TCE=7 00402 

/CLEAR 

PRINTER FLAG TO STOP ITS INTERRUPT 

576 

700406 

A 

TLS=700406 

/LOAD 

PRINTER BUFFER AND PRINT 

577 



/ 



578 



/PC05 PAPER TAPE STATION SKIP IOT'S 


57 9 



/ 



580 

700101 

A 

RSF=700101 

/SKIP 

IF READER INTERRUPTING 

58 1 

7U0201 

A 

PSE = 7 00201 

/SKIP 

IP PUNCH INTERRUPTING 

582 



/ 



583 



/CLOCK IOT'S 



584 



/ 



595 

70000 1 

A 

CLSP=700001 

/SKIP 

IP CLOCK INTERRUPTING 

586 

700004 

A 

CLOF=7 00004 

/TURN 

CLOCK OFF 

587 

700044 

A 

CL0N=7 00044 

/TURN 

CLOCK ON 

588 



/ 



589 



/K P DISKPACK IOT'S *12JAH8* 


590 



/ 



591 

706312 

* 

H 

DPRSA=706312 

/READ 

FUNCTION REGISTER "A" TO AC 

592 

706332 

A 

DPRSB=706332 

/READ 

STATUS REGISTER "3" TO AC 

593 

706341 

A 

DPS J=7 06341 

/SKIP 

IF "JOB DONE" INTERRUPTING 

594 

706321 

A 

DPSA=7Q6321 

/SKIP 

ON UNIT ATTENTION 

595 

706361. 

A 

DPSE=706361 

/SKIP 

IF "ERROR" INTERRUPTING 

596 

706364 

A 

DPWC=7 06364 

/LOAD 

WORD COUNT REG FROM AC 

597 

706344 

A 

DPC A =706344 

/LOAD 

CURRENT ADDRESS' REG FROM AC 

598 

706304 

A 

DPLA = 7 06304 

/LOAD 

CYLINDER, HEAD, AND SURFACE FROM AC 

599 

706464 

A 

DPLP =706464 

/LOAD 

AC TO FUNCTION REG 0-7 AND EXECUTE 

600 

706301 

A 

DPSP=706301 

/SKIP 

ON ANY RP DISK FLAG 

601 

706324 

A 

DPCS=706324 

/SET C 

ONTROLLER TO POWER CLEAR STATE 

602 



/ 



603 



/DECXAPE IOT'S 



60 4 



/ 



605 

7 0 75 4 4 

A 

DTXA=7 07544 

/ XOR A 

C INTO STATUS REGISTER "A" 

6^6 

707545 

A 

DTLA = 7 07545 

/LOAD 

STATUS REGISTER "A" FROM ACCUMULATOR 

607 

707552 

A 

DTR A = 7 07552 

/READ 

STATUS REGISTER "A" INTO AC 0-11 

608 

707561 

A 

D T E P = 7 0 7 5 6 1 

/SKIP 

IF "ERROR" INTERRUPTING 

609 

707572 

A 

DTRB=707572 

/SKIP 

IF "DT JOB DONE" INTERRUPTING 

610 

707601 

A 

DTDF = 7 07601 



611 

707541 

A 

DTC A =707541 

/CLEAR 

STATUS REGISTER A 

612 



/ 



513 



/ R P 1 5 DECDISK IOT'S 
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M 

MEMONIC DEFINITIONS 

1 

614 



/ 


615 

707001 

4 

DSSF = 7 07 001 

/SKIP ON RF 1 5 INTERRUPTING 

616 

707021 

A 

DSCC=7 07021 

/CLEAR DISK CONTROL AND DISABLE "FREEZE” 

61 7 

707022 

A 

ORAL =707022 

/"OR" APO INTO 4CCUM 

618 

707062 

A 

DRAH=707062 

/"OR" API INTO ACCOM 

619 

7 07024 

A 

DLAL=7 07 024 

/LOAD ACCOM INTO APO 

6 2 0 

707064 

A 

DLAH = 7 07064 

/LOAD ACCOM INTO API 

621 

707041 

A 

DSCF = 7 07041 

/CLEAR FUNCTION REGISTER 

622 

707042 

A 

DSFX = 7 07042 

/ XOR AC 15,16,17 INTO FUNCTION REGISTER 

623 

707044 

A 

DSCN=707044 

/EXECUTE FUNCTION 

624 

707202 

A 

DLQK=7 07 202 

/"OR" SEGMENT ADDRESS- INTO ACCOM 

625 

707242 

A 

DSCD-7 07242 

/CLEAR STATUS REGISTER 

626 

707262 

A 

DSRS=7 07262 

/"OR" STATUS REGISTER WITH ACCOM 

627 



/ 


628 



/DC 0 1 LINE SCANNER HIT'S 


629 



/ 


630 

704401 

A 

SSF=704401 a 

/SKIP ON SCANNER INTERRUPTING 

631 

704412 

A 

SR R = 704412 


632 

704404 

A 

SC L=7 04404 1 ° 

/DISABLE SCANNER 

633 

704421 

A 

SSL=704421 

/STOP SCANNER AND READ 

634 




/SCANNER LINE REGISTER 

635 

704422 

A 

SLT=704422 

/LOAD SELECTED TRANSMITTER LINE DATA 

636 

704424 

A 

SCR=704424 

/CLEAR SCANNER FLAG AND START 

637 




/SCANNER AT PRESENT LINS 

638 



/ 


6 3 9 



/LP15F LINEPR INTER SKIP IOT 


640 



/ 


6 4 1 

7 0 65 0 1 

A 

LPSF =706501 

/SKIP ON DONE AND ERROR 

642 



/ 


643 



/ 


644 



/SECOND LINEPRINTER 


645 



/ 


646 

703501 

A 

LPSF. 2=703501 

/FOR SPECIAL SECOND LP 

647 



/ 


648 



/CR036 CARD READER SKIP IOT 


649 



/ 


650 

706721 

A 

CRSI=706721 

/SKIP IF CR03B INTERRUPT 

651 



/ 


652 



/CR15 CARD READER SKIP IOT 


653 

706701 

A 

CRSKP=706701 

/ SKP IF CR15 INTERRUPT 

654 



/ 


655 



/ 


65 6 



/POWER FAIL IOT 


657 



/ 


658 

7 0 3 2 0 1 

A 

PFSF = 7 0 320 1 

/SKI? ON POWER LOW FLAG. 

659 



/ 


b 6 0 



. JFPNZ XVM 

/♦I 2JAH15* 

661 

7 0 1 7 4 2 

A 

MPEU=701 742 

/*12JAH15* ENTER USER MODE 

662 

700024 

A 

LDMM=700024 

/*12JAH15* LOAD m REGISTER FROM AC 

663 

700032 

A 

RDM M =700032 

/♦12JAH15* READ MM REGISTER INTO AC 

66 4 

701762 

A 

RDCLK=7 01762 

/*12JAH15* READ XVM CLOCK INTO AC 

665 

701741 

A 

MPSNE=7 01741 

/*12JAH15* SKIP IF NEXM FLAG UP 
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H U v P S 1 0 0 M M 

£ MO NIC DEFINITIONS 


6 6 6 

701744 A 

MPCN£=701744 

/*12JA.H15* CLEAR N E X M FLAG 

667 

701764 A 

IPIH=701764 

/*12JAB15* 

6 6 8 


. ENDC 

/♦12JAH15* 



PAGE 22 
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MACRO DEFINITIONS 


669 



.TITLE 

MACRO DEFINITIONS 

670 


/ 



6 71. 


/BLOCK 

TRANSFER 

MACRO 

672 



. DEFIN 

XFR, DEV, UNIT. AQDR, CORE, LNG, 01 R, RETRY 

673 



JM.S 

DEV 

674 



-RETRY 

/RETRY COUNT 

575 



LAC 

UNIT /UNIT NUMBER 

676 



LAC 

ADDR /DEVICE ADDRESS 

677 



LAC 

CORE /CORE BUFFER ADDRESS 

678 



LAC 

LNG /LENGTH AS NEGATIVE W.C. 

679 



. T FZER 

DIR 

5 8 0 



CLL 

/READ 

681 



. ENDC 


682 



, IFPNZ 

DIR 

683 



SKP1CLL 

/OR WRITE 

684 



JMP* 

CDBIN 

685 



• ENDC 


6 8 6 



.END M 


687 

0 0 0 0 0 0 

A R = 0 



68 9 

0 0 0 0 0 1 

jo 

2L 

11 



689 


/DESCRIPTION OF 

CON SOT, E SWITCH USAGE: 

690 


/ 



691 


/ 

THE CONSOLE SWITCHES ARE USED BY THE OPERATOR TO DEMAND 

69? 


/ 

CERTAIN 

FUNCTIONS OF THE MONITOR 

693 


/ 



694 


/SWITCHES 0 AND 

1 (TOGETHER) SYSTEMATIC HALT 

695 


/ 



69b 


/ S a I T C H 

3 

MAILBOX CALL ACTIVE 

6 97 


/ 



698 


/SWITCH 

5 

ENABLE XCOM 

699 


/ 



700 


/SWITCH 

6 

EMERGENCY HALT - MUST 3E ONLY SWITCH ONI 

701 


/ 



7 02 


/SWITCH 

12 

WHEN' 0, USE CONSOLE TELLY FOR MINI-DDT 

703 


/ 


WHEN 1, USE AS MUMPS TERMINAL OR MONITOR 

704 


/ 



705 


/SWITCHES 13-17 

ONLY EFFECTIVE WHEN SWITCH 12=1 

706 


/ 


IF 0, USE AS MUMPS TERMINAL 

707 


/ 


IF LEGAL LINE NUMBER, MONITOR THAT LINE 

708 


/ 


IF ILLEGAL, USE AS MUMPS TERMINAL 

709 


/ 


IF SAMS AS CONSOLE LINE NUMBER , USE AS MUMPS 

710 


/ 


TERMINAL. 
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MUMPS 


1 0 0 

r 

'’TERR OPT ENTRY AM 

D REGISTER DEFINITIONS 


711 






•TITLE 

INTERRUPT ENTRY AND REGISTER DEFINITIONS 


712 





/INTERRUPT ENTRY POINT 



713 

0 0 0 0 0 


000000 

A 


0 




714 

9 0 001 

R 

601046 

R 


JMP 

INTER!! 



715 

0 0 0 0 2 

R 

601040 

R 


JMP 

GOBEG 

/ * 1 2 J A H 1 2* BOOTSTRAP ENTRY HERE TO 

START SYSTEM 

716 

0 0 0 0 3 

R 

601042 

R 


JMP 

GODMp 

/*12JAH12* START-UP HERE FOR CRASH 

PROCEDURES 

7 1 7 

00 00 4 

R 

601044 

R 


JMP 

GO snap 

/*12JAH12* START-UP HERE FOR CRASH 

PROCEDURES 

71 R 








/NO BUFFER CLEAN UP, JUST XFR DABS 

AND GET wyPAK 

719 

00005 

R 

000606 

R 


SYSTAB 


/POINTER TO SYSTEM TABLE 


120 

0 0 0 0 6 

R 


A 


•BLOCK 

12 



721 





/ 





122 





/LOC a n 

ON 7 IS 

CLOCK CELL 



723 





/ 





724 



0 o 0 0 0 7 

A 

RO 7 = 7 





725 





/ 





726 





/CELLS 

10, 11, 

12 AND 13 ARE 

NON-REENTRANT SYSTEM CELLS 


727 





/ 





72 8 



000010 

A 

R 1 0= 1 0 





729 



00001 1 

A 

R1 1=1 1 





7 30 



000012 

A 

R 1 2 = 1 2 





731 



0000 1 3 

A 

R 1 3=13 





732 





/ 





733 





/CELLS 

14, 15, 

16 AND 17 ARE 

reentrant, and ARE SAVED IN SWAPPING 

IMAGE 

7 34 





/ 





7 35 



000014 

A 

R 1 4= 1 4 





736 



000015 

A 

R 1 5 = 1 5 





737 



000016 

A 

R 1 6 = 1 6 





738 



0 0 0 0 1 7 

A 

R 1 7= 1 7 





739 





/ 





7 40 





/ 





741 





/CELL 20, THE 

"CAL" ENTRY POINT, IS ALSO USED AS REENTRANT SCRATCH 


742 





/BUT IS 

PRQCEDURALLY USED AS 

"ERROR" ENTRY POINT 


743 





/ 





7 44 



000020 

A 

R 2 0 = 2 0 





745 





/ 





746 

0 0 0 20 

P 

740040 

A 


XX 




747 

0 0 021 

R 

601036 

R 


JMP 

GOERR 

/*12JAH12* GOERR MUST BE IN PAGE 0 

iii 

748 

00022 

R 


A 


• BLOCK 

2 

/22 AND 23 MAY BE USED BY CR15 AS 

WC AND CA 

749 

0 0 0 2-4 

R 

001777 

A 

XFR. 1 

1777 


/LITERALS FOR XFRDN BOOT IN OF MUMPS 

750 

0 0 0 2 5 

R 

376000 

A 

XFR. 2 

376000 




751 





/ 





752 





/VARIOUS DATA 

CHANNEL ADDRESSES 


753 





/ 





754 



000022 

A 

R22=22 





755 



000023 

A 

R23 = 2 3 





756 



000030 

A 

R30=30 



/NEGATIVE WORD COUNT FOR DECTAPE 


757 



000031 

A 

R 3 1 =3 1 





759 



000032 

A 

R32=32 





759 



000033 

A 

R 3 3 = 3 3 





760 



000035 

A 

R35=35 



/CORE ADDR • -1 FOR LP15 


761 



000036 

A 

R 36 = 36 



/NEGATIVE WORD COUNT FOR RF 1 5 DISK 


762 



000037 

A 

R37=37 



/CORE ADDRESS -1 FOR RF15 DECDISK 
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MUMPS 100 


INTERRUPT ENTRY A NO REGISTER DEFINITIONS 


763 

00026 

R A 

.BLOCK 10 



764 

O0Q36 

R 777741 A 

»37 



765 

0 00 37 

R 000037 R 

* 

/CURRENT ADDRESS FOR E 

) EC DISK 
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MiJMPf 

3 

100 

API 

ADDRESS TABLE 



7 66 





.TITLE 

API ADDRESS TA6L 

i£ 

767 





.IP^NZ 

API 


768 

0 0 0 4 0 

R 

101253 

R 

JMS 

ILLINT 


769 

00041 

R 

101253 

R 

JMS 

ILLINT 


770 

00042 

R 

101253 

R 

JMS 

ILLINT 


771 

0 0 D 4 3 

R 

101253 

R 

jms 

ILLINT 


77? 





.IFPNZ 

DTA 


7 7 8 

00044 

R 

1 20603 

R 

JMS* 

Of TRAN 

/DEC TAPE 

774 





.ENDC 



775 





•IFNOZ 

DTA 


776 





JMS 

ILLINT 


111 





ST M H n 



778 





.IFPNZ 

MT A 


779 

00045 

R 

120604 

R 

JMS* 

MTTRAN 

/MAG TAPE 

780 





• ENDC 



781 





.IFNOZ 

MT A 


782 





JMS 

ILLINT 


783 





.ENDC 



784 

00046 

R 

101253 

P. 

JMS 

ILLINT 


785 

00047 

R 

101253 

R 

JMS 

ILLINT 


7«6 

00050 

R 

1 20602 

R 

JMS* 

P'TTRAN 

/PAPER TAPE READER 

787 

00051 

R 

101324 

R 

JMS 

GOCLOK 

/CLOCK 

788 





.IFPNZ 

PFAIL 


799 





JMS 

GOPF 

/POWER FAIL 

7 90 





.ENDC 



791 





.IFNOZ 

PFAIL 


79? 

0005? 

R 

101253 

R 

JMS 

ILLINT 


79 3 





.ENDC 



79 4 

00053 

p 

101253 

R 

JMS 

ILLINT 

/PARITY 

795 

0 0 0 5 4 

R 

101253 

R 

JMS 

ILLINT 

/ VT1 5 

796 





.IFPNZ 

CRXX 


797 





JMS* 

CQTRAN 

/CARD READER 

/98 





.ENDC 



799 





.IFNOZ 

CRXX 


800 

00055 

R 

101253 

R 

JMS 

ILLINT 


801 





.ENDC 



802 





.IFPNZ 

L P 1 5 


80 3 





JMS* 

LPTRAM 

/LINE PRINTER 

804 





.ENDC 



805 





.IFNOZ 

LP1 5 


806 

0 0 0 56 

R 

1 01253 

R 

JMS 

ILLINT 


807 





.ENDC 



809 

0 0 0 5 7 

R 

101253 

Q 

JMS 

ILLINT /A/D 


809 

0 0 0 6 0 

9 

101253 

R 

JMS 

ILLINT 

/QR99A/DB98A 

810 

00061 

R 

10J253 

R 

JMS 

ILLINT 


81 1 

0 0 0 6 2 

R 

101253 

R 

JMS 

ILLINT 

/DATA PHONE (DP09A) 

81 2 





.IFPNZ 

RF15 


81 3 





JMS* 

RFTRA M 

/RF DISK 

91 4 





.ENDC 



915 





.IFNOZ 

RF15 


016 

0 0 0 6 3 

R 

101253 

R 

JMS 

ILLINT 



817 . E N D C 
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w U M P S 100 


APE ADDRESS TABLE 


819 





. IFPNZ 

RP 

/♦12JAH8* 

819 

0 0 064 

p 

1 20605 

R 

JMS* 

RPTRAM 

/RP DISK 

820 





. ENDC 



821 





.IFNOZ 

RP 

/*12JAH8* 

822 





JMS 

ILLIMT 


8 2 3 





* ENDC 



82 4 

0 0 0 6 5 

R 

101253 

R 

JMS 

ILLIMT 


8 25 

0 0 0 66 

R 

101253 

R 

JMS 

I LL I NT 


826 





•IFPNZ 

LP 1 5 „ 2 


827 





JMS* 

LP2TRN 

/LIME printer 

828 





.ENDC 



829 





.IFNOZ 

LP15.2 


8 30 

00067 

R 

101253 

R 

JMS 

ILLIMT 


9 31 





.EMDC 



8 32 





. IFPNZ 

DCO 1 


9.3 3 

00 0 7 0 

R 

101110 

R 

JMS 

I NT SCO 

/SCAMMER #0 

834 





.ENDC 



335 





.IFNOZ 

DC 0 1 


836 





JMS 

ILLIMT 


837 





.ENDC 



838 





. IFPNZ 

DCO 1 - 1 


9 39 

0 0 0 71 

R 

101133 

D 

JMS 

I NTSC 1 

/SCANNER #1 

840 





.ENDC 



841 





.IFNOZ 

OCOl-1 


3 42 





JMS 

ILLIMT 


843 





.ENDC 



844 





.IFPNZ 

OCOl-2 


845 

0 0 0 7 2 

R 

301157 

R 

JMS 

I NTSC 2 

/SCANNER #2 

846 





.ENDC 



847 





.IFNOZ 

DC 01 -2 


949 





JMS 

ILLIMT 


8 49 





.ENDC 



850 





.IFPNZ 

DC 01 -3 


851 

000 7 3 

R 

101203 

R 

JMS 

I NTSC 3 

/SCANNER #3 

852 





.ENDC 



853 





.IFNOZ 

0C01-3 


854 





JMS 

ILLIMT 


855 





.ENDC 



856 





.IFPNZ 

OCOl-4 


857 

00074 

R 

1 01227 

R 

JMS 

I NTSC A 

/SCAMMER #4 

85 8 





.ENDC 



959 





.IFNOZ 

DCO 1 -4 


960 





JMS 

ILLIMT 


861 





.ENDC 



862 





.IFPNZ 

DCO 1 -5 


86 3 





JMS 

I NTSC 5 

/SCANNER ff 5 

86 4 





.ENDC 



865 





.IFNOZ 

DCO 1 -5 


866 

00075 

R 

101253 

R 

JMS 

ILLIMT 


867 





.ENDC 



869 





.IFPNZ 

DC 01 -6 


869 





JMS 

I NTSC 6 

/SCANNER #6 
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API ADDRESS TABLE 


m fj MRS 1 0 0 


870 

971 

872 00076 R 1012539 

973 

374 

97S 

876 

877 

878 00077 R. 101253 R 

879 
S 8 0 


.ENDC 

.IENOZ OC01-6 
JMS ILLIMT 

.ENDC 

.IFPMZ DC 01 -7 
JMS I N T S C 7 

.ENDC 

. IFNQZ DC 01 -7 
JMS ILLIMT 

. ENDC 
.ENDC 


/SCANNER # 7 
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m [j vj P s 


1 0 0 

MOP AK-MUMPS OVERLAP 



881 





.TITLE 

MUPAK-MfJMPS OVERLAP 

832 





/ " M (j P A K " INITIATES A DISK TRANSFER TO BRING '’MUMPS" INTO CORE, 

833 





/THEN TRANSFERS 

CONTROL TO AN IDENTICAL SET OF CODE WITHIN 

884 





/ITSELF AT THESE SAME ADDRESSES. 

AS THE TRANSFER PROGRESSES, 

885 





/THE "MUPAK" CODE IS OVERWRITTEN 

WITH THIS "MUMPS" CODE,. 

886 





/WHEN THE TRANSFER IS COMPLETE, 

"MUMPS" DETECTS IT, TESTS FOR 

387 





/ERRQS, CHECKSUMS. AMD TRANSFERS 

CONTROL TO THE INITIALIZATION 

983 





/PROCEDURE. 



989 





. I FPNZ 

RP 

/*12JAH8* 

890 

0 0 1 0 0 

R 

706341 

A 

XFRDN DPS J 


/IS JOB DONE? 

891 

00101 

R 

741000 

A 

SKP 


/NOT YET... 

892 

0 0 1 o 2 

R 

600105 

R 

JMP 

. + 3 

/YES - 

993 

0 010 3 

R 

706361 

A 

DPSE 


/...OR IS THERE AM ERROR? 

994 

0 010 4 

P 

600100 

R 

JMP 

.-4 

/MO... 

895 

00105 

P 

706332 

A 

DPRSB 


/STATUS REG B 

896 

0 010 6 

R 

500024 

8 

AND 

XFR. 1 

/GET RID OF JUNK 

997 

00107 

R 

652000 

A 

LMQ 


/HOLD IN MO 

898 

0 0110 

p 

706312 

4 

DPRSA 


/STATUS REG A 

999 

00111 

p 

640710 

A 

ALS 

10 


900 

001 1 2 

H 

5 0 0 u 2 5 

R 

AND 

XFR. 2 


901 

001 1 3 

R 

640002 

ft 

OMQ 


/OR BOTH TOGETHER 

902 

0011 4 

R 

740200 

ft 

SZ A 



90 3 

0011 5 

P 

740040 

A 

HLT 


/BAD TRANSFER, AC HOLD STATUS BITS 

904 





. ENDC 



905 





. IEZER 

RP 

/IF NO RP, MUST BE ON DEDISK *12JAH8* 

906 





XFRDN DSSF 


/IS TRANSFER COMPLETE? 

907 





JMP 

.-1 

/NOT YET... 

90 8 





DSRS+10 


/LOAD STATUS REG 

909 





SPA 



910 





HLT 


/BAD TRANSFER, AC HOLDS STATUS BITS 

91 1 





. ENDC 



912 





/CALCULATE THE 

CHECKSUM - CANNOT 

1 USE CORE LOCATIONS 

913 





/•NOTE: BY CONVENTION, "MUPAK” HAS LEFT THE POSITIVE WORD COUNT 

914 





/ OF THE 

TRANSFER IN THE LIMIT REGISTER 

915 

0011 6 

R 

735000 

A 

CLX 



916 

001 1 7 

R 

70776? 

A 

DBA 


/USE INDEX MODE 

917 

0 0 12 0 

P 

750000 

A 

CL A 



918 

00121 

R 

350001 

A 

TAD 

1 .X 

/THIS INSTRUCTION MUST BE IN PAGE 0!!I 

919 

0 012 2 

R 

725001 

A 

AX S 

1 


920 

0012 3 

p 

600121 

R 

JMP 

.-2 


921 





/CHECKSUM IN ACCUM - IT MUST BE 

ZERO’ 

922 

0 012 4 

R 

707764 

A 

ERA 


/RETURN TO BANK MODE 

923 

0 012 5 

R 

740200 

ft 

SZA 



924 

001 26 

p 

740040 

A 

HLT 


/BAD CHECKSUM-- AC WILL CONTAIN CHECKSUM DIFFERENCE 

925 





. IFPNZ 

RP 

/* 1 2 JAH8* 

926 

00127 

R 

.1 34050 

e 

JMS* 

OABSXF 

/*12JAH12* 

927 

0 013 0 

R 

011000 

A 

01 1000 


/READ UNIT 0 WITHOUT INTERRUPT 

928 





.ENDC 



929 





. IFZER 

RP 

/*12JAH8* 

9 30 





JMS* 

DABSXF 

/*12JAH12* 

931 





2 


/READ WITHOUT INTERRUPT 

932 





.ENDC 





PA GE 29 MUMPS 100 MtJPAK-*MjMPs OVERLAP 
932 00131 R 634041 E JMP* BEGIfl /*12JAH12* 
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M [J M P $ 


1 00 

934 




935 




936 




937 




939 




939 




940 




941 




942 




943 




944 




945 




946 




947 




948 




949 




950 

001 32 

R 

0 0 0 0 0 0 

951 

0013 3 

R 

000000 

952 

0 013 4 

R 

0 0 0 0 0 0 

95 3 

00 3 3 5 

H 

0 0 0 0 0 0 

954 




955 




956 




95 7 

001 36 

R 

000000 

958 

00137 

R 

0 0 0 0 0 0 

959 

0 014 0 

R 

000000 

960 

00141 

R 

000000 

961 

00142 

R 

000000 

962 

00143 

p 

000000 

963 

0 0 1 4 4 

R 

000000 

9o4 

00145 

P 

0 0 0 0 0 0 

965 

001 46 

R 

000000 

966 

0 014 7 

R 

000000 

967 

0 0 1 5 0 

R 

0 0 0000 

968 

00151 

R 

0 0 0 0 0 0 

969 




970 




971 




972 

00152 

R 

000000 

97 3 




97 A 




975 



000015 

976 

0 015 3 

R 

000000 

97 7 

00154 

R 

000000 

978 





PARTITION 1 SWAPPING 1 MAGE 

.TITLE- PARTITION SWAPPING IMAGE 

/ 

/PARAMETERS AND POINTERS FOR RUNNING partition . 

/ 

/ 

/THESE ARE ADDRESS POINTERS INTO THE ACTIVE PARTITION, 

/THESE ARE NOT SAVED AS PART QE THE SWAPPING IMAGE 
/SINCE THAT WOULD EAT UP STORAGE IN THE PARTITION, AND 
/IT IS £AS¥ ENOUGH TO COMPUTE THEM EACH TIME THE PARTITION 

/is swapped in, 

/ 

/IMPORTANT* III I 

/ "AVAR” THROUGH "EVAR" MUST APPEAR IN SAME ORDER AS "VBLQCK" VARIABLES 

/ 

/ 

/ 


A 

BUFFI 

0 


/POINTER TO THE DIRECT COMMAND BUFFER 

A 

BUFF 2 

0 


/POINTER TO THE STRING ACCUMULATOR 

A 

BUFF 

0 


/POINTER TO THE PROGRAM BUFFER 

A 

SYM80T 

/ 

/FROM 

0 


/POINTER TO THE END OF THE USER DEFINED SYMBOLS 


HERE DOWN 

TO 


A 

/ 

AVAR 

0 


/DECTAPE POSITION VARIABLE 

A 

KVAR 

0 


/KEY 

A 

PVAR 

0 


/PAGE VARIABLE 

A 

M VAR 

0 


/•MARGIN VARIBLE 

A 

FVAR 

0 


/FORMAT (RIGHT MARGIN) VARIABLE 

a 

I VAR 

0 


/I/O DEVICE VARIABLE 

A 

W VAR 

0 


/WATCH DOG (TIMED READ) VARIABLE 

A 

LVAR 

0 


/CURRANT STEP 

A 

SVAR 

0 


/STORAGE - CHARACTERS OF ROOM LEFT 

A 

TVAR 

0 


/TIME (IN SEC. SINCE M IDNITEAl 00 ) 

A 

XVAR 

0 


/CHARACTER POSITION (IN I/O LINE) 

A 

YVAR 

0 

. IFDEF 

K98GFU 

/LINE POSITION IN PAGE 


BVAR 

0 

.ENDC 


/FUNCTION VARIABLE FOR DC01 

A 

EVAR 

0 


/BREAK CONTROL SWITCH 


/ 

/ 

SYSVAR 


. . DOWN 

TO HERE ARE "SYSVAR" NUMBER OF SYSTEM VARIABLES 

A 

=E VAR- A VAP+ 1 


A 

S Y M END 

0 


/USED FOR HANG TIMER 

A 

PR TEND 

0 


/USED FOR %W TIMER 


EJECT 
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Vj J M p « 

3 

100 


PARTITION 

SNAPPING 

IMAGE 


979 





/SNAPPING IMAGE 

STARTS 

HERE 

980 





/VARIABLES 



981 





/ 




982 





/FROM 

HERE D 0 W N 

TO ... 


98 3 





/ 




984 

00155 

R 

0 0 0 o o 0 

4 

PC 

0 


/NOTE- PC AND AC MUST BE THE FIRST 

385 

001 56 

R 

000000 

A 

AC 

0 


/LOCATIONS OF BOTH THE SWAPPING IMAGE 

988 








/AND THE ACTUAL PARTITION, 

987 

0 015 7 

R 

oooooo 

A 

MO 

0 



98 8 

0 01 6 cf 

R 

000000 

A 

XR 

0 



989 

0 0161 

R 

oooooo 

A 

LR 

0 



990 





/ D E X 1 0 

A 

\J 



991 





/oexi 3 

0 



992 





/DEXl 4 

0 


/THESE ARE TREATED AS COMMENTS HERE, SINCE 

993 





/DEX15 

0 


/THEY OCCUPY REAL CELLS ELSEWHERE. 

994 





/DEXl 6 

0 


/HOWEVER, IN THE ACTUAL PARTITION THERE 

995 





/DEX17 

0 


/ARE 7 CELLS, APPEARING IN THE ORDER SHOWN 

996 





/ERR20 

0 


/TO HOLD THEM DURING SWAPQUT. 

997 





/ t • * * * 


. .DOWN 

TO HERE ARE 1 4 C OCTAL) HARD REGISTERS 

998 





/ 




999 



00001 4 

A 

R£GS=14 



1000 





/ 




1 001 





/ 




1002 





/AND FROM HERE 

DOWN TO 


1 003 

00162 

R 

oooooo 

A 

PRNCDV 

0 


/PRINCIPLE DEVICE - LINE # SIGNED IN ON 

1 0 0 4 

0016 3 

R 

oooooo 

A 

INPUT 

0 


/CONTAINS JMP I NTA3+DEV 

1 005 

0 0164 

R 

oooooo 

A 

OUTPUT 

0 


/CONTAINS QUTTAB+DEV 

1006 

00165 

R 

oooooo 

A 

stack 

0 


/CONTAINS TOP OF STACK-1 POINTER 

1007 

0 016 6 

R 

oooooo 

A 

SPOINT 

0 


/CURRENT STACK POINTER 

1008 

00167 

R 

oooooo 

A 

END 

0 


/POINTER TO THE END OF THE PROGRAM BUFFER 

1009 

0 017 0 

R 

oooooo 

A 

symbeg 

0 


/ ADDR - BEGINNING OF SYMBOL TABLE 

1010 

001 71 

R 

OOOOOO 

A 

qbpn r 

0 


/"OLD” I.E. LAST, BLOCK READ 

1011 

00172 

R 

oooooo 

A 

WRTSW 

0 


/WRITE SWITCH - IF NON-ZERO, "PERSONAL" BUFFER 

1012 








/MUST BE WRITTEN OUT 

1013 

00173 

R 

oooooo 

A 

SWPCNT 

0 


/SWAP COUNT - NUMBER OF TIMES SWAPPED OUT 

1014 

001 74 

R 

oooooo 

A 

CLKCNT 

0 


/CPU USAGE COUNT 

1015 

00175 

R 

oooooo 

A 

wrtcnt 

0 


/NUMBER OF DATA BASE WRITES (AS BLOCKS) 

1016 

001 76 

R 

oooooo 

A 

RDCNT 

0 


/NUMBER OF BLOCK READS 

1017 

00177 

R 

oooooo 

A 

SYM 

0 


/COUNT OF LEVELS OF FORS 

1018 

00 200 

R 

oooooo 

A 

SCRIP 

0 



1019 

00201 

R 

oooooo 

A 

SAVPRD 

0 


/ACCUMULATOR SAVE DURING XPRODA 

1020 

0020? 

R 

oooooo 

A 

TEMP 

0 



1021 

00203 

R 

oooooo 

A 

FQRTST 

0 



1 022 

00204 

R 

oooooo 

A 

SYMS 

0 



1023 

00205 

» 

oooooo 

A 

SCRIPS 

0 



1024 

0 0 2 0 6 

R 

oooooo 

A 

LOC 

0 


/POINTER INTO STEP BUFFER 

1025 

O0207 

P 

oooooo 

A 

VAL 

0 



1026 






. IFPNZ 

MONEY 


1027 

0021 0 

R 

741000 

A 

MONYSw 

SKP 


/ N 0 P = $ M USING SYMBOL TABLE, SKP = OTHER 

10 2 8 






. ENDC 



1029 






.IFPNZ 

F MONEY 


1030 

0021 1 

R 

oooooo 

A 

VALF 

0 

/F.P. 

ARG LEGALITY INDICATOR? 0 ILL, 1 LEGAL 



D AG? 

32 

M U M P S 

100 

PARTITION SWAPPING I M AGE 


10 31 


0 0 2 1 2 

R 

000000 

A 

FLOAT 

0 

/ $ A EMIR 

L LEGALITY INDICATOR? 0 ILL , 1 LEGAL 

103? 







• E 

MDC 


103 3 


0021 3 

R 

000000 

A 

OFLAG 

0 


/SPECIAL $Q FLAG 

1034 


0021 4 

R 

000000 

A 

M 

0 



1035 


00215 

R 

0 0 00 0 o 

A 

SUM 

0 



10 36 


00216 

R 

000000 

A 

TERM 

0 



1037 


0021 7 

ft 

00000 0 

A 

ACTEMP 

0 



10 38 


0 0 2 20 

R 

0 0 0 0 0 0 

A 

I POINT 

0 


/INPUT CHARACTER POINTER 

1039 


00221 

R 

0 0 0 0 0 0 

A 

IPLACE 

0 


/*12JAH14* CHAR POSITION WITHIN WORD 

10 40 


00222 

R 

000000 

A 

OPOINT 

0 


/OUTPUT CHARACTER POINTER 

1041 


0O2?3 

R 

000000 

A 

GPL ACE 

0 


/M2JAH14* CHAR POSITION WITHIN WORD 

104? 


00224 

R 

000000 

A 

TEMPI 

0 


1043 


00225 

R 

000000 

A 

P0INT1 

0 



1044 


00226 

R 

000000 

A 

PLACE! 

0 


/♦12JAH14* CHAR POSITION WITHIN WORD 

1045 


00227 

R 

oooooo 

A 

TEMP2 

0 



1046 


00230 

R 

0 0 0000 

A 

POINT? 

0 

' \ 


1 047 


00231 

R 

oooooo 

A. 

PLACE? 

0 


/M2JAH14* CHAR POSITION WITHIN WORD 

10 48 


00232 

R 

oooooo 

A 

esuM 

0 



1049 


00233 

R 

oooooo 

A 

8TERM 

0 



1 050 


00234 

R 

0 0 0 0 0 0 

A 

B V A L 

0 



1 051 


00235 

p 

oooooo 

A 

FORVAR 

0 


/FOR VARIABLE 

105? 


00236 

R 

oooooo 

A 

PROG 

0 


/CURRENT PROGRAM NAME 

1053 


00237 

R 

oooooo 

A 

PUSER 

0 


/USER UNDER WHICH THE CURRENT PROGRAM IS FILED 

1054 


0 0 2 4 0 

R 

oooooo 

A 

IP 

0 


/SIGN IN PROGRAM 

1055 


00241 

R 

oooooo 

A 

USER 

0 


/SIGN IN USER 

1 055 


00242 

R 

0 0 0 0 0 0 

A 

BKCHAR 

0 



1057 


00243 

R 

oooooo 

A 

T 1 

0 


/POINTER TO "FOR” VARIABLE’S VALUE 

1058 


002 44 

R 

0 0 0 0 0 0 

A 

T2 

0 


/"FOR" INCREMENT 

1059 


00245 

R 

0 0 0 0 0 0 

A 

T3 

0 


/"FOR" TERMINATOR 

1060 


00246 

R 

oooooo 

A 

IFSWT 

0 


/RESULT OF LAST "IF" 0=FALSE 

1 061 


00247 

ft 

oooooo 

A 

gun i r 

0 


/UNIT OF "NEXT" ACCESS 

1063 


0 02 5 & 

R 

oooooo 

A 

BUN J T 

o 


/UNIT # OF BLOCK IN PARTITION 

106 3 


00251 

R 

0 0 0 0 0 0 

A 

GBLKHi 

0 


/BLOCK ON THIS LEVEL WITH THE MOST ROOM 

1064 


00252 

ft 

oooooo 

A 

GHI 

0 


/HOW MUCH ROOM IN GBLKHI 

1065 

(A 

00253 

R 

oooooo 

A 

GHEAD 

0 


/HEAD BLOCK OF CURRENT GLOBAL LEVEL 

10 66 

00254 

R 

oooooo 

A 

GSYM90L 

0 


/ ADDR -5 WORD BLOCK OF CURRENT GLOBAL IN GTABLE 

1067 


00255 

R 

oooooo 

A 

GHDOLD 

0 


/HEAD BLOCK OF PREVIOUS GLOBAL LEVEL 

1068 






/ 

9 • • 


HERE ARE "VARNUM" NUMBER OF REENTRANT VARIABLES 

1069 




000074 

A 

VARNUM= 

GHOOLO-PRNCDV+1 



1070 „ E JFCT 
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M U M P S 100 


PARTITION SNAPPING IMAGE 


1071 

1072 
107 3 

10 7 4 

1075 

1076 

1077 
1079 

1079 

1080 

1091 

1092 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 
1 097 
1 099 
1099 
1 100 
noi 
1 102 
110 3 
1 104 
1 105 
1106 

1 1 07 


00256 R 000000 A 

00257 R 606313 R 

00260 R 000000 A 

00261 R 606313 « 

00262 R 000000 A 

00263 R 606313 R 

00264 R 000000 A 

00265 R 634161 E 

00266 R 000000 A 

00267 R 610113 P 

00270 R 000000 A 

00271 R 610152 R 

00272 R 000000 A 

00273 R 610410 R 

00274 R 000000 A 

00275 P 000000 A 

00276 R 000000 A 


000056 A 
000057 A 


0 0 0 061 A 


000174 A 

00277 R 777361 A 
00 300 R 000000 A 


/ 

/SUBROUTINES 
/FROM HERE DOWN TO 
80QLL 0 

JMP 

BOOLE 0 

JMp 

ROQLG 0 

JMP 

DISLOP 0 

JMP* 


GASS 

GSYM 


V 

JMP 


XRSL1 
XRELJ 
XRSL1 
XDISLOP 
XG ASS 


/RELATIONAL ENTRY TO XBGOL 
/RELATIONAL ENTRY TO X800L 
/RELATIONAL ENTRY TO X30QL 

/*1 2 JAH1 2* CALL & OVERLAY COMMAND DISPATCHER 
/ASSEMBLE GLOBAL NAME 



PRDCNTX 0 


/* 1 2 J AH 1 7 * 


/ DOWN TO HERE ARE 

/ REENTRANT SUBROUTINE ENTRY POINTS 

SUBNUM=56 /* 1 2JAH1 7* 

. IFPMZ DTA / * 1 2 J A H 1 7 * 

SUBN(JM = SUBNUM+1 /*12JAH17* 

. ENDC /*12JAH17* 

• IFPNZ MODIFY /*12JAH17* 

SUBMUM=SUBNUM+2 /*12JAH17* 

• ENDC /* 1 2JAH17* 

/ 

Sw APSZ = REGS + V ARNUM + 3 + SUBNUM /*12JAH12* TOTAL CELLS IN SWAP AREA 

/* 1 2 JAH1 2* 3 CELLS IN MUMPSB 
USABLE O-SWAPS Z-RLQCK-COMBUFF-STRACC-PERMSY 
P 

/ WHICH IS NUMBER OF WORDS AVAILABLE FOR PROGRAM AND USER 

/ SYMBOL TABLES 

.EJECT 


& 

SlMf 


X V 
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MUMPS 

1 0 0 


PARTITION 

SWAPPING 

I 4 A G E 

1 103 






/STATUS TABLE 

- ONE WORD FOR EACH PARTITION 

1109 






/ 



1 HO 






/BIT 

0 

t=IN DEPENDENT, 0=DEPENDENT 

mi 






/BIT 

1 

NOT CURRENTLY USED 

1112 






/BIT 

2 

DITTO 

1113 






/BIT 

3 

iqint 

1114 






/BIT 

4 

CURRENTLY UNUSED 

1115 






/BIT 

5 

DITTO 

1X16 






/BIT 

6 IF 1. 

MAGTAPE HANG 

1117 






/BIT 

7 

USED FOR %W VIOLATION 

1113 






/BIT 

8 

IF 1, JOB IN TRANSITION (SIGNING ON OR OFF) 

1119 






/ 



1120 






/BIT 

9 

IF 1, JOB IN PRIORITY STATE 

1121 






/ 



1122 






/FOLLOWING 8 BITS ARE "HANG BITS" 

1123 






/ 



1 124 






/BIT 

10 

NOT USED 

1125 






/BIT 

11 

IF 1, CRXX HANG 

1126 






/ 



1127 






/BIT 

12 

IF 1, LP 1 5 HANG 

1123 






/BIT 

1 3 

IF 1, DECTAPE HANG 

1129 






/BIT 

14 

IF 1, PAPER TAPE HANG 

1130 






/ 



1131 






/BIT 

15 

IF 1, DCO 1 SCANNER HANG 

1 1 32 






/BIT 

16 

IF 1, CLOCK HANG (E.G. HANG .05) 

1 133 






/BIT 

17 

IF 1 , RUNNABLE 

1134 






/ 



i 1 35 






/NOTE 

- IF ALL 

BITS ARE ZERO, PARTITION IS FREE 

11 36 






/ 



1137 







.REPT 

PRTNUM 

113 3 

0 0 3 01 

R 

0 0 0 0 0 0 

A 


ST ATI 

0 



0 0 3 0 2 

p 

000000 

A 

* R 





00 30 3 

R 

000000 

A 

*R 





00304 

R 

000000 

A 

*R 





00305 

R 

000000 

A 

* R 





O0306 

R 

000000 

A 

* R 





0 0 3 0 7 

R 

000000 

A 

*R 





00310 

R 

000000 

A 

* R 





0031 1 

R 

oooooo 

A 

*R 





0031 ? 

D 

OOOOOO 

A 

*R 





0031 3 

R 

oooooo 

A 

*R 





0031 4 

R 

oooooo 

A 

*R 





0031 5 

R 

oooooo 

A 

*R 





00 31 6 

R 

0 0 0 0 0 0 

A 

* R 





0031 7 

R 

oooooo 

A 

* R 





0 0 3 2 0 

R 

oooooo 

A 

* R 





00321 

R 

oooooo 

A 

*R 





00322 

Q 

OOOOOO 

A 

*R 





00323 

R 

oooooo 

A 

* R 





00 324 

R 

oooooo 

A 

* R 





00325 

R 

oooooo 

A 

*R 





00326 

R 

oooooo 

A 

*R 
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v.ijMps 100 


PARTITION SWAPPING IMAGE 


1139 


00327 R 000000 A *R 
00330 R 000330 R 


STATX 
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M (J V* PS 

1 0 0 

1 

LNPUT/DUTPUT TABLES 

1140 







.TITLE INPUT/UUTPUT TABLES 

1141 






/ 


1 1 42 






/DEVICE 

OWNERSHIP TABLE 

1143 






/ 


1 144 






/CELLS 

ARE ON A ONE-TO-ONE CORRESPONDENCE WITH DEVICE NUMBER 

1145 






/ 

IF CEL L = 0 , MOT IN USE 

1146 






/ 

IF CELL NON-ZERO , DEVICE IS IN USE , AMD CONTENTS 

1147 






/ 

OF CELL = ADDRESS OF OWNER'S STATUS WORD 

1 1 43 

00331 

R 

000331 

R 


whotas 


1149 







. REPT MU MAT 

1 150 

00332 

R 

000000 

A 


TT 

0 


00333 

R 

0 0 0 0 0 0 

A 

*R 




00 3 34 

Q 

oooooo 

A 

* R 




00 3 35 

R 

000000 

A 

* R 




00336 

R 

oooooo 

A 

* R 




00337 

P 

oooooo 

A 

*R 




00 3 40 

R 

oooooo 

A 

*R 




00341 

R 

oooooo 

A 

* R 




00342 

R 

oooooo 

A 

*R 




00343 

R 

00000 0 

A 

*R 




0 0 3 4 4 

P 

oooooo 

A 

*R 




00345 

R 

oooooo 

A 

* R 




00 3 46 

R 

oooooo 

a 

*R 




00347 

R 

0 0 0 00 0 

A 

* R 




00 350 

R 

oooooo 

A 

*R 




00351 

R 

oooooo 

A 

*R 




00352 

R 

oooooo 

A 

*R 




00353 

R 

oooooo 

A 

*R 




00354 

R 

oooooo 

A 

*R 




00 355 

R 

oooooo 

A 

*R 




00356 

R 

oooooo 

A 

* R 




00357 

R 

oooooo 

A 

T R 




00 360 

R 

oooooo 

A 

* R 




0036) 

R. 

oooooo 

A 

* R 




00 362 

R 

oooooo 

A 

*R 




00363 

R 

oooooo 

A 

*R 




0 0 364 

R 

oooooo 

A. 

* R 




00365 

R 

oooooo 

A 

*R 




00366 

R 

oooooo 

A 

* R 




00367 

R 

oooooo 

A 

*R 




0 0 3 7 0 

p 

oooooo 

A 

* R 




00371 

R 

oooooo 

A 

*R 




0037? 

R 

oooooo 

A 

*R 




0 0 3 7 3 

R 

oooooo 

a 

❖ R 




00374 

R 

oooooo 

A 

*R 




003 75 

R 

oooooo 

A 

* R 




0 0 3 7 6 

o 

OOOOOO 

A 

* R 




0 0 3 7 7 

p 

oooooo 

A 

* R 




0 0 40 0 

R 

oooooo 

A 

♦ R 




0 0 4 0 1 

R 

oooooo 

A 

* R 




0 0 4 0 2 

R 

oooooo 

A 

* R 




1151 


IFPNZ DT A 
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■vifjMPS 

1 00 


IN PUT/ OUT PUT 

' TABLES 


1 1 5? 





. REPT 

OTA 

115 3 

(304QB ft 

0 0 0 0 0 0 

A 

DTaHOI 

0 



0 0404 ft 

0 0 0 0 0 0 

A 

* R 



1154 





. ENDC 


1155 

00405 ft 

0 0 U 0 0 0 

A 

P I A’ ft 3 

0 


1156 





. TFPNZ 

LP15 

1157 




LP* ! HD 

0 


1 158 





. ENDC 


1159 





. IFPNZ 

LP35.2 

1160 




LPNH02 

o 

V 


1161 





.F.NOC 


116? 





•IFPNZ 

CRXX 

1163 




CDWHO 

0 


1164 





. ENDC 


1165 





•IFPNZ 

MTA 

I 166 





• REPT 

MTA 

1167 

00406 ft 

000000 

A 

i^TwHQl 

0 


1168 





• ENDC 


1 169 





•IFPNZ 

DUMMY 

1170 





• REPT 

DUMMY 

1171 

00407 R 

000000 

A 


0 



00410 R 

000000 

A. 

*R 




0041 1 R 

oooooo 

A 

* R 




00 41 2 ft 

000000 

A 

4 R 




0 0 41 3 ft 

oooooo 

A 

*« 



1172 





• ENDC 


117 3 





•EJECT 



/NUMBER OF TRANSPORTS' 


/ONLY ONE PAPER TAPE STATION ALLOWED 
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MUMPS 

1 0 0 


ENPUT/OUTPUT TABLES 


1174 






/OUTPUT DISPATC 

H TABL 

1175 






.REPT 

N U M A T 

1176 

00414 

R 

634156 

E 


OUTTAB JMPM 

TRIM 


0041 5 

R 

634156 

G 

* R 




0041 6 

p 

634156 

G 

MR 




00417 

R 

634156 

tL 

MR 




0 0 4 2 0 

R 

634156 

E 

MR 




00421 

R 

634156 

E 

M R 




00422 

R 

634156 

E 

MR 




00423 

R 

634156 

E 

MR 




0 0 4 24 

R 

634156 

E 

MR 




00425 

R 

634156 

'E 

MR 




00426 

R 

634156 

E 

MR 




00427 

R 

634156 

E 

MR 




00430 

P 

634156 

e 

MR 




004 31 

R 

634156 

E 

MR 




00432 

R 

634156 

E 

MR 




004 3 3 

R 

634156 

E 

MR 




00434 

R 

634156 

p 

u 

MR 




00435 

R 

634156 

E 

MR 




00436 

R 

634156 

E 

MR 




00437 

R 

634156 

E 

MR 




00440 

R 

634156 

E 

M R 




0 0 4 41 

R 

634156 

E 

MR 




00442 

R 

634156 

E 

MR 




00443 

R. 

634156 

E 

MR 




0 0 4 4 4 

R 

634156 

E 

MR 




00445 

R 

634156 

E 

MR 




00446 

R 

634156 

E 

MR 




00447 

R 

634156 

E 

MR 




00450 

R 

634156 

E 

MR 




00451 

R 

634156 

E 

MR 




00452 

R 

634156 

E 

MR 




H0453 

R 

634156 

E 

MR 




00454 

R 

634156 

E 

MR 




00455 

R 

634156 

E 

MR 




H0456 

R 

634156 

E 

MR 




00457 

P 

634156 

E 

MR 




00460 

R 

634156 

E 

MR 




00461 

R 

634156 

E 

MR 




00462 

R 

634156 

E 

MR 




00463 

R 

634156 

E 

MR 




00464 

R 

634156 

E 

MR 



1177 






.IFPNZ 

OTA 

1178 






• REPT 

DT A 

1 179 

00465 

R 

634065 

E 


J t'v' 1 P M 

0 TOUT 


00466 

R 

634065 

E 

MR 



lien 






. E^DC 


1181 

00467 

R 

634143 

E 


JMPM 

PTPIN 

1182 






.IFPNZ 

LP1 5 

1188 






jmpm 

LP6IM 

1184 






.ENDC 
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MUMPS 

1 0 0 

IN PUT/ OUTPUT 

TABLES 


1 IRS 




• I F P N Z 

DPI 5. 2 

11 96 




JMP* 

LPBIN2 

1107 




• ENDC 


119 8 




• IFPNZ 

CR XX 

1199 




ERR27 


1190 




.ENDC 


1 191 




.IFPNZ 

MTA 

1 1 9 2 




.REPT 

MTA. 

1193 

0 0 <17 0 R 

634126 

E 

JMP* 

MTPUT 

1194 




.ENDC 


1 195 




.TFPNZ 

dummy 

1 1 96 




.REPT 

dummy 

1 197 

0 0 4 71 9 

000027 

A 

ERR27 



0047? R 

000027 

A 4 p 




00473 R 

000027 

A *R 




00474 R 

000027 

A *R 




00475 R 

000027 

A * R 



1 198 




.ENDC 


1199 




.EJECT 



/"IQERR" WHEN ATTEMPTING OUTPUT TO CR 


/"IQERR" ON OUTPUTS TO DUMMIES 



40 


INPUT/OUTPUT TABLES 



M U M P S 1 0 0 


1200 



/INPUT 

DISPATCH 

1201 




, REPT 

1202 

0047 6 

ft 634117 E 

S INTAB 

JMP* 


00477 

R 634117 E 

Z * R 



00500 ft 634117 E * R 

00501 R 634117 £ * R 

00502 ft 634117 E * R 

00503 R 634317 E ¥ R 

00504 ft 634117 E *R 

00505 ft 63^117 E *R 

00506 R 634117 E *R 

00507 R 634117 E * R 

00510 R 634117 E *R 

0051) R 634117 E * R 

00512 R 634117 E *R 

0051 3 R 6341 17 E *R 

00514 ft 634117 E *R 

00515 R 634117 E *R 

00516 R 634117 E *R 

00517 ft 634117 S *R 

00520 « 634117 E * R 

00521 R 634117 E *R 

00522 R 6341 1 7 E *R 

00523 R 634117 E *R 

00524 R 634117 E *R 

00525 R 634117 E *R 

00526 R 634117 E *R 

00527 R 634117 E *R 

00530 R 634117 E *R 

00531 R 6341 1 7 E * R 

00532 R 634117 E * R 

00533 R 6341 17 E * R 

00534 P 634117 E *R 

00535 R 634117 E *R 

00536 R 634117 S *R 

00537 R 6341 17 E * R 

00540 R 634117 E *R 

00541 R 634117 £ *R 

00542 R 6341 17 E *R 

00543 R 634117 E *R 

00544 R 634137 F *R 

00545 ft 634117 E *R 

00546 R 6341 17 E * R 


1203 . 1FPNZ 

1204 . R E D T 

1205 00547 R 634063 E JMP* 

00550 ft 634063 E *R 

1 20 6 . E HOC 

1207 00551 R 634345 E JMP* 

1208 .IEPNZ 

1200 ERR27 

1210 .ENDC 


TABLE 
M T J M A T 
KBOUT 


OTA 

OTA /DUMBER OF DECTAPE TRANSPORTS 

0 T 1 0 


P TROUT 
LPJ 5 

/ " IOERR " WHEN ATTEMPTING INPUT FROM LP 
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MUMpS 

1 0 0 


input / our PUT 

1 TABLES 



1211 





.IFPNZ 

LP15.2 


121 2 





ERR27 



1213 





• ENDC 



1214 





.IFPNZ 

CPXX 


1215 





JMP* 

COBOUT 


1216 





.ENDC 



1217 





.IFPNZ 

MTA 


1216 





.REPT 

MT A 


1219 

00552 R 

634125 

E 


JMP* 

MTGET 


1220 





.ENDC 



1221 





.IFPNZ 

DUMMY 


1222 





.PEPT 

DUMMY 


3 22 3 

00553 R 

000027 

A 


ERP27 


/ *' 1 0 £ R R " ON INPUTS FROM DUMMIES 


00554 R 

000027 

A 

*R 





00555 R 

000027 

A 

♦ R 





00556 R 

000027 

A 

*R 





00557 R 

000027 

A. 

* R 





122 4 


ENDC 
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MUMPS 

1 0 0 

SYSTEM TABLE AMO PARAMETERS 

1225 






.TITLE 

SYSTEM TABLE AND PARAMETERS 

1 226 

00560 

R 

000000 

A 

I NT AC 

' 0 

/AC FROM INTERRUPT 

1227 

0 0 5 61 

R 

000000 

A 

1 N T M Q 

0 

/MO FROM INTERRUPT 

1228 

00562 

R 

000000 

A 

INTX 

0 

' /X REG FROM INTERRUPT 

1229 

00563 

R 

oooooo 

A 

INTL 

0 

/LIMIT REG FROM INTERRUPT 

1 230 

0 0 5 6 4 

R 

000000 

A 

IOTMP 

0 

/TEMP. VAR FOR IG ROUTINES WITH INT QFF--MUST 9E IN PAGE 01! 

1231 

00565 

Q 

oooooo 

A 

SC DU NT 

0 


1232 

00566 

R 

oooooo 

A 

STEMP 

0 

/TEMP VAR FOR SLPCHK ROUTINE 

123 3 

00567 

R 

oooooo 

A 

STEMP2 

0 


1234 

00570 

R 

oooooo 

A 

EMERG 

0 

/*12JAH10* EMERGENCY SWITCH (6) INDICATOR 

1235 

00571 

R 

oooooo 

A 

SLPCNT 

0 

/COUNT OF SECONDS SINCE LAST /*12JAH17* 

12 36 







/%W/.CLOCK HANG UPDATE /* 1 2JAH1 7* 

1237 

00572 

R 

oooooo 

A 

SLPTMP 

0 

/PTR TO PARTITION STATUS WORD /*12JAH17* 

12 38 







/O=0FF, 1=0N /*12JAH17* 

1239 







/*12JAH10* 0=OFF, 1=0N 

1 240 

0 0 5 7 3 

R 

oooooo 

A 

KEEP20 

0 

/TEMPORARY FOR R20 /*12JAH15* 

1241 





/ 



1242 

00574 

R 

oooooo 

A 

ODTSW 

0 

/CONSOLE TELLY SWITCH: 0=MONITOR, NON-O DDT 

1 243 

00575 

R 

oooooo 

A 

MONTI Y 

0 

/NUMBER OF TELLY BEING MONITORED *1000 

1244 

00576 

R 

oooooo 

A 

CONS w 

0 

/CHARACTER STATUS SWITCH FOR CONSOLE TELLY 

1 245 

00577 

p 

oooooo 

A 

nsK act 

0 

/BLOCK OWNERSHIP SWITCH 

1 246 

00600 

R 

777766 

A 

OSKCNT 

-DCOUNT 

/COUNT OF CONSECUTIVE DISK ACCESSES BY SINGLE USER 

1247 

00601 

R 

oooooo 

A 

PRVOKA 

0 

/LAST OWNER OF DSKACT 

1 248 






. I FPNZ 

API 

1249 

00602 

R 

740040 

A 

PTTRAN 

XX 


1 250 






, IFPNZ 

QT A 

1251 

0 0 6 0 3 

R 

740040 

a 

OTTPAN 

XX 


1252 






. ENDC 


1 253 






. IFPNZ 

MTA 

1 254 

00604 

R 

740040 

A 

MTTRAN 

XX 


1 255 






.ENDC 


1256 






.IFPNZ 

RF 1 5 

1257 





R F T R A N 

XX 


1 258 






.ENDC 


1 259 






.IFPNZ 

RP /*12JAH8* 

1 260 

00605 

R 

740040 

A 

rptran 

XX 


1261 






. ENDC 


1262 






.IFPNZ 

LP 1 5 

1263 





LPTRAN 

XX 


1 264 






. EM DC 


1265 






.IFPNZ 

LP15.2 

1266 





LP2TRN 

XX 


1267 






.ENDC 


1 268 






.IFPNZ 

CPXX 

1 269 





cdtran 

XX 


1270 






. ENDC 


1271 






.ENDC 


1272 





/ 



1 273 





/THE SYSTEM TABLE — SYSTAB 

1274 





/ 



1 275 





/THIS 

TABLE IS 

POINTED TO BY LOCATION 5 

1276 





/THE TABLE CONTAINS BASIC SYSTEM INFO, STATUS INFO ABOUT 
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M U M P S 


1 0 0 

SYSTEM TABLE AMD PARAMETERS 


12 7 7 





/I/O DEVICES, AND POINTERS TO 

VARIOUS SYSTEM TABLES. 

1278 





/ 



1279 





/ 



1280 



0 0 06 0 6 

R 

SYSTABs 

• 


1 781 





/ 



128? 

00606 

R 

oooooo 

A 

- 1 0 R S 

0 

/PROCESSOR STATUS WORD 

128 3 

0 0 6 0 7 

R 

0 0 0 0 0 0 

A 

ACS WR 

0 

/CURRENT SETTING OF CONSOLE S« ' S 

128 4 

0061 0 

R 

000000 

A 

ACSWRX 

0 

/ XCO M THIS SPOT TO INTERNALLY CLEAR OUT AN AC SWITCH. 

1285 

0061 1 

R 

26b 1 6 1 

A 

sysid 

.SIXBT ’ V 1 1 A M ? 1 

/SYSTEM VERSION # 


0 0 61 2 

R 

010000 

A 




12 8 6 





/ 



12 8 7 





/error 

STATUS FOR RF15 DISK 

SYSTEM UPDATE ON EVERY 

128 8 





/ERROR 

DETECTED BY THE RF15 

CONTROLLER 

1 28Q 





/ 



1290 

0061 3 

R 

000000 

A 

RFSTAT 

0 

/STATUS REGISTER 

1291 

0061 4 

R 

oooooo 

A 

RFADRO 

0 

/DISK ADDRESS -- APO 

1292 

0061 5 

R 

000000 

A 

rfadri 

0 

/DISK ADDRESS -- API 

129 3 

0 0 616 

R 

oooooo 

A 

rferrs 

0 

/ERROR COUNT 

1294 





/ 



12 95 





/STATUS 

AND ERROR STATUS FOR 

RP 1 5 DISK SYSTEM 

1 ? Q 6 





/ 



1297 

00617 

R 

oooooo 

A 

RPSTAT 

0 

/STATUS REG "A" 

1299 





/ 



1299 





/following locations only updated on errrors 

1 300 





/ 



1 301 

00520 

R 

oooooo 

A 

RPDRV 

0 

/STATUS "A" (UNIT 4 IN 0-2) 

1 302 

00621 

R 

oooooo 

A 

RPERST 

0 

/STATUS M 8" 

130 3 

00622 

R 

u 0 0 0 0 0 

A 

rpaddr 

0 

/DISK ADDRESS CLY IN 0-7 

1 304 







/HEAD IN 8-12 SEC IN 14-17 

1 305 

00623 

R 

oooooo 

A 

RPERRS 

0 

//ERROR COUNT 

1 306 





/ 



1307 





/dec-tape error STATUS 


1 30 8 





/ 



1 309 

00624 

R 

oooooo 

A 

DTERRA 

0 

/STATUS »EG "A" (UNIT IN 0-2) 

1310 

00625 

R 

oooooo 

A 

DTERRB 

0 

/STATUS REG "S" 

1311 

00626 

R 

oooooo 

A 

dterrs 

0 

/ERROR COUNT 

1312 





/ 



1313 





/MAG-TAPE error status 


1314 





/ 



1 315 

00627 

R 

oooooo 

A 

MTSTAT 

0 

/MAG TAPE STAUS /WITH UNIT # 15-17 

1316 

00630 

R 

oooooo 

A 

MTERRS 

0 

/ERRROR COUNT 

1 317 





/ 



1 318 





/MAG-TAPE DRIVE STATUS UPDATED QM EVERY OPERATION TO THAT DRIVE 

1319 





/ 



1 320 

00631 

R 

oooooo 

A 

MTUN1 

0 

/DRIVE 1 

1 321 

0063? 

R 

oooooo 

A 

MTUN2 

0 


1 322 

0 " 6 3 3 

R 

oooooo 

A 

MTU M3 

0 


1323 

0 0 6 3 4 

R 

oooooo 

A 

M T V N 4 

0 


1324 

00535 

R 

oooooo 

A 

M T U N 5 

0 


1 325 

00636 

R 

oooooo 

A 

MTUN6 

0 


13 26 

0 0 6 3 7 

R 

oooooo 

A 

M T U N 7 

0 


1327 

0 0 6 4 0 

R 

oooooo 

A 

MTUN8 

0 
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MUMPS 

100 

SYSTEM TABLE AND PARAMETERS 



1 323 





/ 




1329 





/STATUS 

WORDS FOR CARD 

READER, 

AMD LINE PRINTERS 

13 30 





/WHICH 

ARE UPDATE ON EVERY I/O 

OPERATION 

1331 





/ 




1 332 

00641 

R 

oooooo 

A 

COST AT 

0 


/CARD READER 

1333 

0 0 6 4 ? 

R 

nooooo 

A 

LPSTA 

0 


/LINE PRINTER #1 

1334 

0 0643 

R 

oooooo 

A 

LPSTA2 

0 


/LINE PRINTER #2 

1 335 





/ 




1335 





/system 

INFORMATION AND 

POINTERS 

13 3 7 





/ 




13 38 

00644 

R 

oooooo 

A 

noflag 

0 


/COUNT OF ILLEGAL INTERRUPTS 

1339 

00645 

R 

oooooo 

A 

DKCHK 

0 


/NUMBER OF CHKPNT ERRORS ON RETRIES 

1340 

00646 

Q 

000301 

R 

JBSPTR 

ST ATI 


/ PTR TO JOB STATUS TABLE 

1341 

00647 

R 

000027 

A 


PRTNUM 


/n OF PARTITIONS IN SYSTEM 

134 2 

00650 

R 

0 0 0 3 3 1 

R 

whoptr 

WH0TA8 


/PTR TO THE WHO TABLE 

1 343 

00651 

R 

000063 

A 


quttas-whotab 


/SIZE OF WHOTAB 

1344 

00652 

P 

oooooo 

A 

SWAPSW 

0 


/0= INHIBIT SWAPPING? 

1 3 45 








/+= SWAPPABLE; 

1346 








/-1=SLICE OVERFLOW, SWAP WHEN DONE 

1347 

00653 

R 

00 00 0 0 

A 

NBPNT 

0 


/NEXT BLOCK POINTER 

1 348 

0065 4 

R 

oooooo 

A 

PRTMMB 

0 


/NEXT PARTITION TO RUN 

1349 

00655 

R 

oooooo 

A 

RUN N MB 

0 


/PARTITION NUMBER NOW RUNNING 

1 350 

— 0 0 6 5 6 

R 

oooooo 

A 

RUNDOWN 

0 


/COUNTER FOR "SWAPPED IN" TIME 

1 351 

0 0 65 7 

R 

oooooo 

A 

PRTIDX 

0 


/LAST USER 

1352 

00 660 

R 

oooooo 

A 

PRTIN 

0 


/PARTITION SWAPPED IN 

135 3 

00661 

R 

0 0 0 0 0 0 

A 

MON i r 

0 


/PRTBEG- 1 , OR 0 IF NO USER SWAPPED IN 

1354 

00662 

R 

oooooo 

A 

ACSWRO 

0 


/CONTENTS OF AC SW. DR’SD WITH ACSWRX 

1 355 

0066 3 

R 

777777 

A 

hltswt 

-1 


/SET TO ZERO BY AC SWITCHES WHEN DUMP TIME 

1356 

00664 

R 

OOOOOO 

A 

HAL, TON 

HLOCK 


/BECOMES 1 WHEN HALTER ENTERED 

1 357 

00665 

R 

777777 

A 

USERS 

-1 


/NUMBER. OF USERS CURRENTLY ACTIVE 

13 5 5 








/-l ON ENTRY FROM MUPAK SO IT CAN’T CLOSE 

1359 








/IMMEDIATELY IF YOU FORGOT TO CLEAR THE SWITCHES 

1360 

00656 

R 

OOOOOO 

A 

ptbuff 

0 


/INTI ALIZED TO ADDR OF 1ST DECTAPE BUFFER 

1361 

00667 

R 

oooooo 

A 

mtbuff 

0 


/INITIALIZED TO ADDR OF- 1ST MAGTAPE BUFFER 

1362 

00670 

R 

oooooo 

A 

QPNCNT 

0 


/NUMBER OF GLOB ALS OPEN 

1 363 

00671 

Q 

oooooo 

A 

GBAD 

0 


/NUMBER OF SYSTEM BOO-BOOS IN GARBAGE 

1364 

00 6 7? 

R 

oooooo 

A 

GCHANP 

0 


/*12JAH12* PTR TO GC HA IN IN DABS 

1365 

00673 

R 

oooooo 

A 

degrad 

0 - 


/DATA BASE DEGARDED FLAG - SET NEGATIVE 

1 366 








/ON ONE OF THE FOLLOWING; 

1 367 








/AT SIGNOUT USER NOT FOUND IN THE DIRECTORY 

1368 








/UNRECOVERABLE DISK ERRROR IN GARBAGE COLLECT 

1369 








/O OFFSET IN GARBAGE CHAIN 

1370 








/MAPS PROBLEMS ENCOUNTERED IN ALLOCATION 

1371 

00674 

R 

oooooo 

A 

mteom 

0 


/INTI ALIZED TO POINT TO FLAG FOR MT EOMS 

1372 

00675 

R 

000155 

R 

SWIM 

PC 


/POINTER TO THE PARTITION SWAPPING IMAGE 

1373 

00576 

R 

oooooo 

A 

DIRP1R 

0 


/♦I 2 JAH1 2* 1ST CORE BLOCK ( FCB ) # 

1374 

OQ677 

R 

0 0 21 14 

A 

PSI ZE 

PRTSIZ 


/DEFAULT PARTITION SIZE 

1 375 

f>070 0 

p 

o 0 1 0 0 7 

p 

PSTART 

I NOT A 8 


/PTR TO PARTITION STARTING ADDR TABLE 

1376 

00701 

R 

01 41 42 

p 

PLENG 

PASTAB 


/PTR TO PARTITION LENGTH TABLE 

1377 

0 0 7 0 2 

R 

000132 

R 

SWPPTR 

BUFFI 


/PTR TO PARTITION SWAPPING AREA 

1 378 

00703 

R 

000015 

A 

SYSVNM 

SYS VAR 


/# OF SYSTEM VARIABLES 

1 379 

00 7 0 4 

R 

OOOOOO 

A 

DSKBFF 

0 


/DISK BUFFER OF CURRENT USER 
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HUMPS 100 


SYSTEM TABLE AND PARAMETERS 


1380 

0 0 7 0 5 

R 

000000 

A 

G8WD2 

0 


/POINTER TO 2ND WORD OF USER’S DISK BUFFER 

1381 

0 0 7 0 6 

R 

000000 

A 

DABSPT 

o 


/*12JAH12* PTR TO ”DA3S" IN MUBUFF 

1 38? 

0 0 7 0 7 

R 

000000 

A 

LMTBPT 

0 


/♦12JAH12* PTR TO LINE TABLE 

133 3 

0071 0 

P 

000000 

A 

GBLTPT 

0 


/*1 2 JAH1 2* PTR TO GLOBAL TABLE C5 WD/GL08 AL ) 

1384 

007 1 t 

P 

000074 

A 

NMGBL 

NOG 


/* OF GLOBALS 

1 385 

00712 

R 

000000 

A 

NMRF 

RF15 


/# OF RF 1 5 PLATTERS 

1 386 

007 1 3 

R 

000003 

A 

nmrp 

RP 


/* OF LOGICAL RP UNITS *12JAH8* 

1 387 

007 1 4 

R 

000000 

A 

PRTPIR 

0 


/* 1 2 JAB1 2* PTR TO BEG. OF PARTITONS 

1383 

00715 

P 

000000 

A 

CRETE 

0 


/*1 2 JAH1 2* TERM. FILLER CHAR TABLE PTR 

1 389 

0 0 7 1 6 

R 

777766 

A 

DSKREP 

-DCOUNT 


/CONSECUTIVE DISK USE COUNT 

1 390 

0071 7 

R 

000001 

A 

SIJBDSK 

SUBMERGE 

/SYS MANAGER DESIRES ( 1=SUBMERGED, 0=REGULAR) DISK 

1 391 



000720 

R 

SUBQUES 

^ • 



1392 






. IFPNZ 

SUBMERGE 

139 3 

00720 

R 

740000 

A 


NOP 



1394 






• ENDC 



1 395 






. I F N 0 Z 

SUB HER 

G E 

1 396 






SKP 



1 39 7 






.ENDC 



1 398 

00721 

P 

777775 

A 

TI^ESL 

-PERIOD 


/TIME SLICE LENGTH (IN CLOCK TICKS 2'S COMPL.) 

1 399 

0 0 7 2 2 

R 

000000 

A 

PRGDRI 

0 


/0=GLQ5 ALS ONLY SPAN BUFFER POOL , 0 THE R= GLOBALS , PROGRAMS, 

1 400 








/DIRECTORIES, XCOM BLCOKS SPAN BUFFER POOL 

1401 

0072 3 

R 

0 0 00 00 

A 

SPIRIT 

PWRITE 


/O OR NEG = BUFFER POOL IMMEDIATE WRITE TO DISK /*12JAH16* 

1402 








/+=RUFFER POOL DELAYED W RITE TO DISK /*12JAH6* 

1 403 

00724 

R 

000001 

A 

N M M T 

M T A 


/NUMBER OF MAGTAPES IN SYSTEM /*12JAH17* 

140 4 

00 725 

P 

000002 

A 

NMD I 

DT A 


/NUMBER OF DECTAPES IN SYSTEM /*12JAH17* 

1405 

00 726 

ft 

000000 

A 

NMLP 

LP15+LP15.2 

/NUMBER OF LINE PRINTERS IN SYSTEM /*12JAH17* 

1 406 

00727 

R 

000000 

A 

NMCR 

CRXX 


/NUMBER OF CARD READERS IN SYSTEM /*12JAH17* 

1 407 

0 0 7 3 0 

R 

0 0 0 0 0 5 

A 

N M D C 

DCO 1 


/NUMBER OF DCOl'S IN SYSTEM /*12JAH17* 

140 8 

00731 

R 

000005 

A 

nmdum 

DUMMY 


/NUMBER OF DUMMY DEVICES IN SYSTEM /*12JAH17* 

1409 

00732 

R 

777703 

A 

mtqvfl 

-MTCOL-? 


/MT INPUT CHAR LINE OVERFLOW LIMIT /*12JAH17* 

1 4 1 0 

00 733 

R 

014132 

E 

STM U M2 

MUMPS2 


/STARTING ADDRESS OF MUMPS2 /*12JAH17* 

1411 



000734 

R 

STMQN Y= 

. 


/*12JAH17* 

1412 






. IFPNZ 

MONEY 

/♦12JAH17+ 

1413 

0 0 7 3 4 

R 

014123 

E 


MONEYM 


/STARTING ADDRESS OF MONEY /*12JAH17* 

1414 






.ENDC 


/*12JAH17* 

1415 






. IFNOZ 

MONEY 

/* 1 2 JAH1 7* 

1416 






0 


/*12JAH17* 

1417 






.ENDC 


/* 1 2 JAH1 7* 

1416 



000735 

R 

S T M U U C = 

. 


/*12JAH17* 

1419 






.IFPNZ 

DC 0 1 

/* 1 2JAH1 7* 

1420 

007 35 

R 

014130 

E 


MU DC 


/*12JAH17* 

1 421 






.ENDC 



1422 






.IFNOZ 

DC 0 1 

/*12JAH1 7* 

1 423 






0 


/* 1 2 JAH1 7* 

1424 






.ENDC 


/*12JAH17* 

1425 



000736 

R 

S T m U R P = 

• 


/* 1 2 JAH1 7* 

1426 






. IFPNZ 

RP 

/* 1 2 JAH1 7* 

1427 

00736 

R 

014135 

E 


M'JRP 


/♦I 2 JAH1 7* 

1 428 






.ENDC 


/¥ 1 2 JAH1 7* 

1429 






.IFNOZ 

RP 

/* 1 2 JAH 1 7* 

1430 






0 


/* 1 2 JAH1 7* 

1431 






.ENDC 


/*12JAH17* 
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MUMP s 


100 


SYSTEM TABLE A M D PARAMETERS 


1432 



000737 

Q 

S T M (j R F = . 


/* 1 2 JAH 1 7 * 

1433 





. IFPNZ 

R F 1 5 

/*12JAH17* 

1434 





MURF 


/♦I 2 JAH1 7* 

1 A 36 





.ENDC 


/*12JAH17* 

1436 





, IFNOZ 

RF15 

/* 1 2 JAH1 7 * 

1 437 

007 37 

R 

0 0 0 0 0 0 

A 

0 


/*12JAH17* 

14 3 3 





. ENDC 


/♦12JAH17* 

1439 



000740 

R 

STMUMT=. 


/*12JAH17* 

14 40 





.IFPNZ 

MTA 

/* 1 2 JAH1 7* 

1441 

00740 

R 

014133 

E 

MUMT 


/*12JAH17* 

1442 





.ENDC 


/*12JAH17* 

1 443 





. IFNOZ 

MIA 

/*12JAH17* 

1 444 





0 


/*12JAH17* 

1 446 





.ENDC 


/* 1 2 J AH1 7 * 

1446 



000741 

R 

STMULPs. 


/*12JAH17* 

1447 





.IFPNZ 

LP1 5 

/*! 2 JAH1 7* 

1448 





MULP 


/ * 1 2 JAH 1 7 * 

1 4 49 





.ENDC 


/*1 2JAH1 7* 

1 450 





.IENOZ 

LP 1 5 

/♦12JAH17* 

1461 

007 41, 

R 

0 0 0 0 0 0 

A 

0 


/*12JAH17* 

1 46? 





.ENDC 


/* 1 2 JAH1 7* 

1 45 3 



000742 

R 

STMLP2=. 


/* 1 2 JAH1 7* 

t 454 





. I R P M Z 

LP15.2 

/*1 2 JAH1 7¥ 

1455 





MULP2 


/*12JAH17* 

1 456 





.ENDC 


/* 1 2 JAH1 7* 

1457 





.IFNOZ 

LP15.2 

/ * 1 2 JAH 1 7 * 

145 9 

0 0 7 4 2 

R 

000000 

A 

0 


/*12JAH17* 

1 45 V 





.ENDC 


/*12JAH1 7* 

1 460 

0 0 7 4 3 

R 

014134 

e 

STMIJPT MUPT 


/* 1 2 JAH 1 7 * 

1461 



000744 

R 

STMUDTr. 


/*12JAH17* 

146? 





.IFPNZ 

OTA 

/ * 1 2 J AH 1 7 * 

1463 

00744 

R 

014131 

E 

MUOT 


/♦12JAH17* 

1 46 4 





.ENDC 


/ * 1 2 JAH 1 7 * 

1 465 





.IFNOZ 

DTA 

/*12JAH17* 

1 46 6 





0 


/* 1 2 JAH1 7* 

1467 





.ENDC 


/*1 2JAH1 7* 

1 468 



000745 

R 

STMUCR=. 


/*12JAH17* 

1 469 





.IFPNZ 

CRXX 

/*12JAH17* 

1470 





MUCR 


/ * 1 2 JAH 1 7* 

1 471 





.ENDC 


/* i 2 J AH 1 7 * 

1472 





. IFNOZ 

CRXX 

/*12JAH17* 

14 7 3 

0 0 7 4 5 

R 

000000 

A 

0 


/*12JAH17* 

147 4 





• ENDC 


/*12JAH17* 

147 5 

0 0 7 4 6 

R 

014121 

E 

S T w D M P MDUMP 


/* 1 2 JAH1 7* 

1476 

0 0 7 4 7 

R 

014127 

E 

S T v; U B F MUBUFF 


/* 1 2 JAH 1 7 * 

147 7 





/ 



1479 





.EJECT 




EJECT 
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slumps 


100 

SYSTEM TABLE AMD PARAMETERS 








1479 





/the: VARIABLE BLOCK CVBLOCK) 

CONSISTS OF 

PREDEFINED 

SYMBOLS WHICH 

1 480 





/ARE PLACED DIRECTLY INTO 

THE 

SYMBOL TABLE AREA 

OF 

THE PARTITION 

1481 





/WHEN THE USER SIGNS ON. 








1 482 





/ ALL ENTRIES ARE INVARIANT EXCEPT 

THE DATE, 

W 

HIGH 

IS 

1 48 8 





/INITIALIZED BY MUPAK. AND DAILY UPDATED 

BY CLO 

CK ROUTINE 

« 

1484 





/MOTE: IF THE PARTITION 

IS A 

CTIVE WHILE 

MIQNIS 

HT 0 

i n 

CURS 

THE DATE 

1485 





/ WITHIN THE PARTITION 

IS UPDATED WHEN SWAPPED 

IN, 


1 486 





/ 








1487 





/IMPORTANT! !!!!!! 








1 4-8 8 





/ THESE MUST APPEAR 

IN 

THE SAME ORDER AS 

PARTITION 


1489 

1 A q n 





/ ADDRESS POINTERS 

/ 

" AVAR” THROUGH " 

YVAR" 





it? V? 

1491 

0 0 7 50 

p 

000750 

ft 

/ 

VBLOCK . 








1 492 





/SPATE 








149 3 

00751 

R 

701604 

A 

701604 


/(STRING 

- "$D" 

IN 

5 

BIT 

RIGHT ADJUSTED) 

1494 

00752 

R 

000000 

A 

0 


/DATE IS 

FOUND 

IN " 

DABS" 


1495 

00753 

R 

000000 

A 

0 








1496 

0 0 7 54 

R 

000000 

A 

0 








1497 





/%ADORESS 








1498 

00755 

R 

501641 

A 

501641 


/(NUMBER 

• " % A " 

IN 

5 

BIT, 

R.A. ) 

1 499 

00756 

R 

000000 

A 

000000 








1500 





/%KEY 








1501 

00757 

R 

501653 

A 

501653 


/ ( NUMBER 

- H % K " 

IN 

5 

BIT, 

R.A.) 

1502 

00760 

ft 

000000 

A 

0 








1503 





/%P age 








1 504 

0 07 61 

R 

501660 

A 

501660 


/ ( NUMBER 

- «• % p « 

IN 

5 

BIT, 

R.A.) 

1.505 

00762 

ft 

000000 

A 

000000 


/O 






1506 





/%MARGIN (LEFT MARGIN) 








1507 

00763 

R 

501655 

A 

501655 


/(NUMBER 

• •* % vj ” 

IN 

5 

BIT, 

R. A. ) 

1 508 

00764 

R 

000000 

A 

000000 








1509 





/%FORMAT (RIGHT MARGIN) 








1510 

00765 

p 

501646 

A 

501646 


/(NUMBER 

- M % F M 

IN 

5 

31 I, 

R. A. ) 

1511 

0 0 7 66 

R 

016660 

A 

016660 


/76.00 






1512 





/%10-DEVICE 








151 3 

00767 

R 

501651 

A 

501651 


/(NUMBER 

«, »l T *' 

o A 

IN 

5 

BIT, 

R.A. ) 

1514 

00770 

R 

000000 

A 

000000 








1515 





/^WATCHDOG 








1516 

007 71 

ft 

501667 

A 

501667 


/(iMUMBER 

- "%W" 

IN 

5 

BIT, 

R.A.) 

1517 

00772 

R 

000074 

A 

%W WTIMER 








1518 





/$ LOCATION 








1519 

0 0 7 7 3 

ft 

501614 

A 

501614 


/(NUMBER 

- ” $ L " 

IN 

5 

BIT, 

R.A.) 

1 520 

00774 

R 

000000 

A 

000000 








1521 





/SSTORAGE 








152? 

007 75 

p 

501623 

a 

501623 


/ ( NUMBER 

- "$S" 

IN 

5 

BIT, 

R.A.) 

1523 

00776 

ft 

000000 

A 

000000 








1524 





/stime 








1525 

00 7 77 

ft 

5 0 1 6 2 4 

A 

501624 


/(NUMBER 

- »$T" 

IN 

5 

BIT, 

R. A. ) 

1526 

n 1 0 0 0 

ft 

<700000 

A 

0 


/CLOCK IS 

. FOUND 

IN 

M 

PASS" 


1527 





/SX-AX1S 








1 528 

0 10 01 

ft 

501630 

A 

501630 


/(NUMBER 

- "$X" 

IN 

5 

BIT, 

R.A.) 

1529 

0 1 0 0 2 

ft 

000000 

A 

000000 








1530 





1/5 
►— t 

X 

t 

>* 

m 

\ 
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MUMPS 

100 

SYSTEM TABLE 

: AND PARAMETERS 

1531 

01003 

R 

501631 

4 



501631 / C NUMBER - "$Y" IN 5 BIT, R.A.) 

1532 

010 0 4 

P 

oooooo 

A 



OOOOOO 

1533 







. IEDEF K86GFU 

1534 






/ % B U T T 0 N 


1535 







501642 /(NUMBER - »%B" IN 5 SIT R.A.) 

15 35 






o n 
■45 D 

OOOOOO / ( WHATEVER R.A. IS ??) 

1537 







. EM DC 

1538 






/ % 6" R R G R 


1539 

010 0 5 

R 

501645 

A 



501645 /(NUMBER - "%£" IN 5 BIT, R.A.) 

1540 

01006 

R 

oooooo 

A 


%E 

0 

1541 



001006 

R 


VEND=%E 


1542 






/ 


1543 






/THE FOLLOW I MG CELL OF THE PARTITION HAS THE LABEL " SYMEND" 

1544 






/ 

WHICH IS COMPUTED DURING SWAP IN 

1545 






/ 


1546 






////// 

0 /SYMEND POINTS HERE, PARTITI 0N + ( PRTSIZE-2 ) 

1547 






////// 

THIS CELL (WITHIN THE PARTITION) IS USED TO HOLD THE TIME 

1548 






////// 

HANG VALUE IN NEGATIVE SECONDS, AT THE SAME TIME THE 

1549 






////// 

CLOCK HANG STATUS BIT IS SET. 

1550 






/ 


1 551 






/THE FOLLOWING CELL OF THE PARTITION HAS THE LABEL "PR TEND" 

1552 






/ 

WHICH IS COMPUTED DURING SWAPIN 

1553 






/ 


1554 






///// 

0 THIS CELL, WITHIN THE PARTITION, IS USED 

1555 






///// 

to hold the %w rundown value in negative 

1556 






///// 

SECONDS. AT THE SAMW TIME THE DC01 HANG 

1557 






///// 

BIT IS SET IN THE PARTITION STATUS WORD. 

1558 






///// 

HE CELL MAY CONTAIN A ZERO. IN WHICH CASE 

155 9 






///// 

THERE IS NO TIMEOUT ON A READ 

1560 






/ 


1561 



000041 

A 


PERMSY=VEND-VBL0CK+3 /NUMBER OE PERMANENT SYMBOL WORDS IN PARTITION 

1562 







.REPT PRTNIJM 

1 563 

01 007 

R 

OOOOOO 

A 


INQTAB 

0 /PARTITION STARTING ADDRS, 


01010 

R 

oooooo 

A 

^ K 




01011 

R 

oooooo 

A 

* R 




01012 

R 

oooooo 

A 

*R 




01013 

R 

oooooo 

A 

*R 




01014 

R 

oooooo 

A 

* R 




01015 

R 

oooooo 

A 

* R 




01016 

R 

0 0 0 0 0 0 

A 

*R 




01017 

R 

oooooo 

A 

*R 




01 020 

R 

oooooo 

A 

*R 




010 21 

R 

oooooo 

A 

*R 




0 10 2 2 

R 

oooooo 

A 

*R 




0102 3 

R 

oooooo 

A 

*R 




01024 

R 

oooooo 

A 





0 10 2 5 

R 

oooooo 

A 

*R 




01026 

R 

000000 

A 

* R 




01027 

P 

oooooo 

A 

*R 




010 30 

R 

oooooo 

A 

* R 




0 10 31 

R 

oooooo 

A 

*R 




01032 

R 

oooooo 

A 

* R 





P AGE 49 

MUMPS 


100 


SYSTEM TABLE 

: A AMO 

PARAMETERS 



010 3 3 

R 

000000 

4 

*R 






010 3 4 

p 

oooooo 

A 

* R 






01035 

P 

000000 

A 

* R 





156 4 

01036 

R 

707764 

A 


GQERR 

EBA 


/*1 2JAH12* 

1565 

01037 

R 

634070 

E 



JMP* 

ERRQRO 

/* 1 2 JAH1 2* 

1566 

010 40 

R 

707764 

A 


GOBEG 

EBA 


/*1 2 JAH1 2* 

1 567 

01 041 

R 

63*041 

E 



JMP* 

BEG in 

/♦12JAH12* 

1568 

01042 

R 

707764 

A 


GOOMP 

EBA 


/*1 2JAH12* 

1569 

010 4 3 

R 

634056 

E 



JMP* 

OMP 

/* 1 2 JAH1 2* 

1570 

01044 

R 

707764 

A 


GOSNAF 

EBA 


/*12JAH12* 

1571 

01045 

R 

6341 54 

E 



JMP* 

SMAE1J 

/* 1 2 JAH1 2* 




HAIM 


/POwER LOiV? 

/YES , HURRY UP AMD STOP 


/CARD DOME , COL ROY, OR ERR. 


/RE JOB DONE OR ERROR 
/*1?JAH8* 

/RP JOB DONE OR ERROR (ALSO UNIT ATTN-- 3IJT SHOULD NT HAPPEN) 
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MUMPS 


1 0 0 


INTERRUPT SKIP CHAIN 


1624 

/RP MOVING HEAD 

DISKS 

1625 

/ 



1626 


SKP 


1 527 


JMP* 

rpelag 

1629 


. ENDC 


1 629 


. IEPNZ 

M T A 

1630 

MTSF = 7 07 341 


1631 


MTSF 


1 632 


SKP 


1633 


JMP* 

I ENTRY 

1634 


. ENDC 


1635 

/ 



1636 

/CLOCK 



1637 

/ 



1639 


CLSF 


1639 


SKP 


1640 


JMP 

CLOK 

1641 

/ 



1642 

/ 



164 3 


. IEPNZ 

DCO 1 

1 644 

/ 



1645 

/DC 0 1 ED 

LINE SCANNERS 

1 646 

/ 



1647 

I NTSC 

SSE 


1648 


JMP 

. +6 

1649 


SRR 


1650 


AND 

(7000 

1651 


JMS* 

TTSET 

1 652 


SRR 


1653 


JMP* 

SCANO 

1 654 


.IEPNZ 

DCO 1 -1 

1655 


SSE+40 


1656 


JMP 

• * 7 

1657 


SRR+40 


1 658 


AND 

(7000 

1659 


XOR 

( 1 oooo 

1660 


JMS* 

TTSET 

1661 


SRR+40 


1662 


JMP* 

SCANO 

166 3 


.IEPNZ 

DC 01 -2 

1664 


SSE+100 


1665 


JMP 

. +7 

1666 


SRR+1 00 


1667 


AND 

(7000 

1668 


XOR 

(20000 

1669 


JMS* 

TTSET 

167 0 


SRR+100 


1671 


JMP* 

SCANO 

1672 


.IEPNZ 

DCO 1 -3 

1 673 


SSF+140 


1674 


JMP 

.+7 

1675 


SRR+140 



* 1 2J AH8* 


/NOT SCAMMER 0 


/MOT SCANNER 1 


/NOT SCANNER 2 


/NOT SCANNER 3 
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MUMPS 


100 


INTERRUPT SKIP CHAIM 


1676 

AMD 

(7000 

1677 

XOR 

( 30000 

1678 

JMS* 

TTSET 

1679 

SRR + 140 


1680 

JMP* 

SCAMO 

1681 

. IFPMZ 

DC01-4 

1682 

SSF+200 


1688 

JMP 

.+7 

1684 

SRR+200 


1685 

AMD 

(7000 

1 686 

XOR 

(40000 

1687 

JMS* 

TTSET 

1688 

SRR+200 


1689 

JMP* 

SCAMO 

1690 

.IFPMZ 

DC01-5 

1691 

SSF+240 


1692 

JMP 

.+7 

1 693 

SRR+240 


1694 

AMD 

(7000 

1695 

XOR 

(50000 

1 6 96 

JMS* 

TTSET 

1697 

SRR+240 


1698 

JMP* 

SCAMO 

1699 

.IFPMZ 

0001*6 

1700 

SSF+300 


17 01 

JMP 

.+7 

1702 

SRR+300 


170 3 

AND 

(7000 

1704 

XOR 

(60000 

1705 

JMS* 

TTSET 

1 7 06 

SRR+300 


1 707 

JMP* 

SCAMO 

170 8 

.IFPMZ 

DC01-7 

1709 

• SSF+340 


1710 

JMP 

. + 7 

1711 

SRR+340 


1712 

AMD 

(7000 

1713 

XOR 

(70000 

1714 

JMS* 

TTSET 

1715 

SRR+340 


1716 

JMP* 

SCAMO 

1717 

. EM DC 


1718 

.ENDC 


1719 

. ENDC 


1720 

.ENDC 


1721 

.ENDC 


1722 

. EM DC 


172 3 

.ENDC 


1 724 

.ENDC 


1725 

/ 


1726 

/ 


1727 

.ENDC 



/MOT SCAMMER 4 


/MOT SCAMMER 5 


/NOT SCAMMER 6 


/MOT SCAMMER 7 




/LP DOME OR ERROR 


* 1 2 J A H 1 5 * 

/*12JAH15* 

/♦12JAH15* SKIP ON NEXM 

/♦I 2 JAH15* NO NEXM 

/* 1 2 JAH1 5* GO GIVE ERROR 



page: 5 A 


MUMPS 100 


INTERRUPT SKIP CHAIM 


1780 

1781 





/ 

.ENDC 


1782 





/ 



1 7 8 8 





/ 



1784 





/ 



1785 

0 10 7 3 

R 

440644 

R 

NFLAG 

ISZ 

NOFLAG 

1780 

1787 

010 7 4 

R 

740000 

A 

/ 

NOP 


1788 





/ 



17 9 9 





/COMMON 

INTERRUPT EXIT ROUTINE 

1790 

01075 

R 

200563 

R 

EXIT 

LAC 

I N T L 

1791 

010 76 

R 

722000 

A 


PAL 


1792 

010 7 7 

P 

200562 

R 


LAC 

IMTX 

1793 

01 too 

R 

721000 

A 


PAX 


17 94 

0 1 1 0 1 

R 

200561 

R 


LAC 

INTMQ 

1795 

01102 

ft 

652000 

A 


LMQ 


1796 

0 11. 0 3 

R 

200560 

R 


LAC 

INTAC 

1797 






.IFPNZ 

API 

1798 

01104 

R 

700042 

A 


ION 


1799 






.ENDC 


1 800 

01 105 

R 

705521 

A 


IN TON 


1801 

01 106 

8 

703344 

A 


DRR 


180 2 

0110? 

R 

620000 

A 


JMP* 

0 

1 803 
1804 





/ 

.IFPNZ 

API 

1805 






.IFPNZ 

DCO 1 

1 806 

OHIO 

R 

oooooo 

A 

INTSCO 

0 


1907 

ouu 

R 

705522 

A 


IN TOFF 


1906 

01112 

R 

707764 

A 


E8A 


1809 

0 1113 

R 

040560 

R 


DAC 

INTAC 

1810 

01114 

R 

201110 

R 


LAC 

INTSCO 

1811 

01115 

R 

040000 

A 


DAC 

0 

1812 

01116 

R 

641002 

A 


LACQ 


1813 

01117 

R 

040561 

R 


DAC 

INTMQ 

1814 

01120 

R 

724000 

A 


PX A 


1815 

01121 

R 

040562 

R 


DAC 

IMTX 

1816 

01122 

R 

730000 

A 


PLA 


1817 

01123 

R 

040563 

R 


DAC 

INTL 

1818 

01 1.24 

R 

704401 

A 


SSF 


1919 

Oil 25 

R 

601073 

R 


J«P 

NFLAG 

1820 

01126 

P 

704412 

A 


SRR 


1821 

01127 

R 

513636 

R 


AND 

(7000 

18 2 2 

01130 

R 

1 34157 

E 


JMS* 

XT SET 

1823 

01131 

P 

704412 

A 


SRR 


1824 

01132 

R 

634153 

E 


JMP* 

SCANO 

1825 






.ENDC 


1 8 26 






.IFPNZ 

DCO 1-1 

1927 

0113 3 

R 

OOOOOO 

A 

TMTSCl 

0 


1828 

01134 

R 

705522 

A 


INTOFF 


1829 

01135 

R 

707764 

A 


EBA 


19 30 

01 1 36 

R 

040560 

R 


DAC 

INTAC 

1831 

0113 7 

R 

201133 

R 


LAC 

I NTSC 1 


/*12JAH15* 


/ILLEGAL INTERRUPT 
/IN CASE WE OVERFLOW , 

FOR ALL INTERRUPT SERVICE PROGRAMS 
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MUMPS 

100 

INTERRUPT SKIP CHAIM 

1 R 3 2 

01140 

H 

040000 

A 

OAC 

0 

18 33 

01141 

R 

641002 

A 

LACQ 


1834 

01142 

R 

040561 

R 

DAC 

INTMQ 

1835 

01 143 

R 

724000 

A 

PXA 


1836 

01144 

R 

040562 

R 

DAC 

i n r x 

18 37 

01145 

R 

730000 

A 

PLA 


18 3 8 

01146 

R 

040563 

R 

DAC 

IMTL 

1838 

01147 

R 

704441 

A 

SSF + 40 


1840 

01150 

R 

601073 

R 

JMP 

NFLAG 

1841 

01151 

R 

704452 

A 

SRR+40 


1842 

01152 

R 

513636 

R 

AMD 

C 7 0 0 0 

1843 

0115 3 

R 

253637 

R 

XOR 

C 10000 

1844 

01154 

R 

134157 

E 

JMS* 

IT SET 

1845 

01155 

R 

704452 

A 

SRR f 40 


1846 

01 156 

R 

634153 

E 

JMP* 

SC AMO 

1847 





.EMDC 


1 34« 





. IFPNZ 

DC 0 1 -2 

1349 

01157 

R 

000000 

A 

IN ISC2 0 


1850 

01160 

R 

705522 

A 

1NT0FF 


1851 

01161 

R 

70/764 

A 

EBA 


185? 

01162 

R 

040560 

R 

DAC 

I N T AC 

1853 

0116 3 

R 

201157 

R 

LAC 

I NTSC 2 

1854 

01 1 64 

R 

040000 

A 

DAC 

0 

1855 

01165 

R 

64100? 

A 

LACQ 


1856 

01 166 

R 

040561 

R 

DAC 

INTMQ 

1857 

01167 

R 

724000 

A 

PXA 


1858 

01170 

R 

040562 

R 

DAC 

INTX 

1859 

01171 

R 

730000 

A 

PLA 


1 860 

01172 

R 

040563 

R 

DAC 

IMTL 

1861 

01173 

R 

704501 

A 

SSF+100 


1862 

0117 4 

R, 

601073 

R 

JMP 

NFLAG 

1863 

01175 

R 

704512 

A 

SRR+100 


1864 

01176 

R 

51 3636 

R 

AMO 

( 7000 

1865 

01177 

R 

253640 

R 

XOR 

(20000 

1866 

01200 

R 

134157 

E 

JMS* 

TTSET 

1867 

01201 

F 

704512 

A 

SRR+100 


1 868 

01202 

R 

634153 

E 

JMP* 

SC AMO 

1869 





.EMDC 


1870 





. IFPNZ 

OCOt-3 

1 871 

01203 

R 

000000 

A 

I N TSC 3 0 


1872 

01204 

R 

705522 

A 

INTOFF 


1 873 

0120 5 

R 

707764 

A 

EBA 


1874 

01206 

R 

040560 

R 

DAC 

I NT AC 

1875 

01207 

R 

201203 

R 

LAC 

I NTSC 3 

1876 

01210 

R 

040000 

A 

DAC 

0 

1877 

01211 

R 

641002 

A 

LACQ 


1 878 

01212 

R 

040561 

R 

DAC 

INTMO 

1879 

0121 3 

O 

724000 

A 

PXA 


1880 

01214 

R 

040562 

R 

DAC 

INTX 

1881 

01215 

R 

730000 

A 

PLA 


1 882 

01216 

R 

040563 

R 

DAC 

IMTL 

1883 

01217 

R 

704541 

A 

SSF+140 
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M LIN PS 

100 

INTERRUPT 

SKIP CHAIN 

1884 

01220 

R 

601073 

R 


JMP 

NFL AG 

1885 

01221 

R 

704552 

A 


SRR+140 


1886 

0122 2 

R 

513636 

R 


AND 

(7000 

1887 

01223 

R 

253641 

R 


XOR 

(30000 

1888 

01224 

P 

1. 34157 

E 


JMS* 

TTSET 

1 889 

01225 

P 

704552 

A 


SRR+140 


1890 

01226 

R 

634153 

E 


JMP* 

SC A NO 

1891 






. ENOC 


1892 






.IFPNZ 

QC01-4 

1893 

01227 

R 

000000 

A 

1 NTSC 4 

0 


1894 

01230 

R 

705522 

A 


INTOEF 


1895 

01231 

K 

707764 

A 


EBA 


1896 

01232 

p 

040560 

R 


DAC ' 

INTAC 

1897 

01233 

p 

201227 

R 


LAC 

I NTSC 4 

1898 

012 34 

R 

040000 

A 


DAC 

0 

1899 

01235 

R 

641002 

A 


LACQ 


1900 

01236 

R 

040561 

R 


0 AC 

INTMQ 

1901 

01237 

R 

724000 

A 


PX A 


1902 

01240 

R 

040562 

R 


DAC 

I NT X 

190 3 

01241 

R 

7 3 0 0 0 0 

A 


PLA 


190 4 

01242 

R 

040563 

R 


DAC 

INTL 

1 905 

01243 

R 

704601 

A 


SSF + 200 


1906 

01244 

R 

601 07 3 

R 


JMP 

NFLAG 

1 907 

012 45 

R 

704612 

A 


SRR + 200 


1908 

01246 

R 

513636 

R 


AND 

(7000 

1909 

01247 

R 

25364? 

R 


XOR 

(40000 

1910 

01250 

R 

1 34157 

E 


JMS* 

TTSET 

1911 

01251 

R 

70461 2 

A 


SRR+200 


191? 

01252 

R 

634153 

E 


JMP* 

SCANO 

1913 






• ENDC 


191 4 






.IFPNZ 

DC01-5 

1915 





i n r s c 5 

0 


1916 






IN TOFF 


1917 






EBA 


1918 






DAC 

INTAC 

1 919 






LAC 

INTSC5 

1 920 






DAC 

0 

1921 






LACQ 


192? 






DAC 

INTMQ 

1923 






PX A 


1924 






DAC 

INTX 

1925 






PLA 


1926 






0 AC 

INTL 

1927 






SSF + 240 


1 928 






JMP 

NFLAG 

1929 






SRR+240 


19 30 






AND 

(7000 

1931 






XOR 

(50000 

1932 






JMS* 

TTSET 

1933 






SRR + 240 


1934 






JMP* 

SCANO 

1935 






.ENDC 
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1976 






. IFPNZ 

1937 





INTSC6 

0 

1938 






INTOFF 

1939 






EBA 

1940 






DAC 

1941 






LAC 

194? 






DAC 

1943 






LACQ 

1944 






DAC 

1945 






PX A 

1946 






DAC 

1947 






PLA 

1948 






DAC 

1 949 






SSF+300 

1950 






JMP 

1951 






SRP+300 

1952 






AND 

1953 






XOR 

1 954 






JMS* 

1955 






SRR+300 

1 956 






JMP* 

1957 






. ENDC 

1958 






.IFPNZ 

1959 





I NTSC 7 

0 

1 960 






IN TOFF 

1961 






EBA 

1962 






DAC 

1963 






LAC 

1964 






DAC 

1965 






LACQ 

1966 






DAC 

1967 






PXA 

1968 






DAC 

1969 






PLA 

1970 






DAC 

1.971 






SSF+340 

197? 






JMP 

1973 






SRR+340 

1974 






AND 

1975 






XOR 

1976 






JMS* 

1977 






SRR+340 

197 8 






JMP* 

1 979 






.ENDC 

1. 98 0 





/ 


1981 

012 5 3 

R 

0000 0 0 

A 

ILLINT 

0 

1 98? 

01254 

R 

705522 

A 


IN TOFF 

1983 

01255 

R 

440644 

P 


ISZ 

1984 

01256 

P 

740000 

A 


NOP 

1985 

01257 

R 

705521 

A 


INTON 

1986 

01260 

R 

703344 

A 


DBR 

1987 

01261 

R 

621253 

R 


JMP* 


DC 01-6 

I NT AC 
INTSC6 
0 

INTMQ 

I.NTX 

I NTL 

NFL AG 

(7000 

(60000 

TTSET 

■SC a NO 

DC01-7 

INTAC 
I NTSC 7 
0 

INTMQ 

I N T X 

I NTL 

NFL AG 

(7000 

(70000 

TTSET 

SC AMO 

NOFLAG 

ILLIMT 



PAGE 5 8 

MUMPS 

100 


INTERRUP C 

SKIP CHAIN 


1988 




/ 




1989 





.ENDC 



1990 




/ 




1991 





. IFPMZ 

PF AIL 


1992 





, IFPNZ 

API 


1993 




GOPF 

0 



1994 





INTOFF 



1995 





ERA 



1996 





DAC 

IN TAC 


1997 





LAC 

GOPF 


1998 





0 AC 

0 


1999 





LACQ 



2000 





0 AC 

INTMQ 


2001 





PXA 



2002 





0 AC 

INTX 


2003 





PLA 



2004 





DAC 

I NTL 


2005 





PFSF 


/POWER LOW? 

2006 





JMP 

NFLAG 


2007 





.ENDC 



2008 




/POWER 

FAIL — 

AWAIT THE 

INEVITABLE. 

2009 




/ 




2010 




PF 

LAC 

(JMP 

RESTRT /SETUP LOC 0 SINCE POWER UP WILL START 

201 1 





DAC 

0 

/EXECUTION THERE. 

2012 





JMP 

• 

/SIT AND WAIT 

2013 




/ 




2014 




/ 




2015 




/ p 3 a' E R 

FAIL -- 

ARISE THE 

PHOENIX 

2016 




/ 




2017 




RESTRT 

EBA 



201.8 





DZM 

r M T A c 

/(INTAC USELESS TO US NOW) 

201 9 





ISZ 

INTAC 

/DELAY TO MAKE SURE WE'RE REALLY UP. 

2020 





JMP 

.-1 


2021 





CAF 


/MAKE SURE SYSTEM IS VERY QUIET. 

2022 





, IFPNZ 

API 


2023 





ION 



2024 





.ENDC 



2025 





INTOM 



2026 





JMP* 

HALTER 

/*12JAH12* TRY TO GET BACK TO MUPAK 

2027 





.ENDC 



2028 




/ 




2029 




/PROCESS NON-EXISTENT MEMORY REFERENCE *12JAH15* 

2030 




/ 




2031 





. IFPNZ 

XVM 

/*12JAH15* 

2032 

01262 R 

701744 

A 

MEXMR 

MPCNE 


/* 1 2 JAH1 5* CLEAR MEXM FLAG 

2033 

01263 R 

703304 

A 


DBK 


/* 1 2 JAH1 5* 

2034 

01264 R 

200000 

A 


LAC 

0 

/* 1 2 J AH1 5* FETCH INT. ADDR 

2035 

01265 R 

705521 

a 


IN TON 


/* 12 JAH1 5* 

2036 

01266 R 

040020 

A 


DAC 

R20 

/*12JAH15* SALT AWAY FOR PRINTOUT 

20 3 7 

01267 R 

601036 

R 


JMP 

GOERR 

/*12JAH15* GO TO ERR ROUTINE 

2038 





.ENDC 


/M2JAH15* 

2039 




/ 
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MUMPS l 00 


INTERRUPT SKIP CHAIM 


2040 





/ codin 

G TO MAKE CONSOLE TELLY 

2041 





/ 



2042 





/KEYBOARD 


2043 

01270 

R 

700312 

A 

,08KB 

KR8 


2044 

01271 

R 

200574 

R 


LAC 

ODFSW 

2045 

01 272 

R 

740200 

A 


SZA 


20^6 

01273 

R 

634113 

E 


JMp* 

HKRENT 

2047 

01274 

R 

200575 

R 


LAC 

MON TTY 

2048 

01275 

R 

740200 

A 


SZA 


2049 

01276 

R 

601075 

R 


JMP 

EXIT 

2050 

01277 

R 

213643 

R 


LAC 

(NUMTT*1000 

2051 

01 300 

R 

134157 

P 

W 


JMS* 

TTSET 

2052 

01301 

R 

700312 

A 


KRB 


2053 

2054 

01302 

R 

634153 

E 

/ 

JMP* 

SCAMO 

2055 





/PRINTER 


2056 





/ 



2057 

01303 

R 

700402 

A 

„ D3TP 

TCP 


2058 

01304 

R 

200574 

R 


LAC 

ODTSW 

2059 

01305 

R 

740200 

A 


SZA 


2060 

01 306 

R 

634115 

e 


JMP* 

H T PENT 

2061 

01 307 

R 

200575 

R 


LAC 

MON TTY 

2062 

0 1 3 1 0 

ft 

740200 

A 


SZA 


2063 

01311 

R 

601315 

R 


JMP 

. QBTP1 

2064 

2065 

01312 

R 

213643 

ft 


LAC 

( NUMTT* 1000 

2066 

01313 

R 

134157 

E 


J M S * 

TTSET 

2067 

2068 

01314 

ft 

634152 

E 

/ 

JMP* 

SCANCT 

2069 





/CONSOLE TELLY 

IS MONITORING S 

2070 





/ 



2071 

01315 

p 

200576 

R 

. DBTP 1 

LAC 

CONSW 

2072 

01316 

R 

7411 00 

A 


SPA 


2073 

01317 

R 

751001 

A 


SKPiCMA 

iCLA 

2074 

01320 

R 

700406 

A 


TLS 


2075 

013 21 

R 

740001 

A 


CM A 


2076 

01322 

R 

040576 

R 


DAC 

CONSW 

2077 

01 323 

R 

601075 

R 


JMP 

EXIT 


LOOK LIKE A MUMPS TERMINAL 


/WHAT MODE? 

/*12JAH12* USE AS MINI DDT 
/WHAT TELLY BEING MONITORED? 

/NONE IP ZERO 

/KB NOT USED DURING MONITOR 
/CONSOLE TELLY IS LAST TTY TERMINAL 

/GET INPUT CHAR 


/SHUT THE BEAST UP 
/WHAT MODE? 

/M2JAH12* USE AS MINI DDT 
/WHAT TELLY BEING MONITORED? 

/SOMEBODY BEING MONITORED 
/CONSOLE TTY IS LAST TERMINAL? 
/AS IF READ IN FROM DC01 


ME USER 

/WHAT IS STATUS OF LAST CHAR? 

/NEGATIVE - RESET TO 0, PERMISSION TO TLS 
/OUTPUT THIS CHAR 

/AMD RECORD THAT IT IS IN TRANSIT 
/EITHER 0 OR -1 AT THIS POINT 
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MUMP' 

> 

too 

CL 

OCK INTERRUPT RESPONSE 


2079 






* TITLE i 

CLOCK INTERRUPT 

RESPONSE 

2079 






.IFPNZ 

API 


2 0 8 0 

01324 

R 

000000 

A 

GOCLOK 

0 



208 1 

01325 

R 

705522 

A 


INTOFF 



2 08 2 

01326 

R 

707764 

A 


EBA 



2093 

01327 

R 

040560 

R 


0 AC 

I NT AC 


2084 

013 3 0 

R 

201324 

R 


LAC 

GOCLOK 


2095 

013 31 

R 

040000 

A 


DAC 

0 


2086 

01332 

R 

641002 

A 


LACO 



2087 

013 3 3 

R 

040561 

R 


0 AC 

INTMQ 


2088 

013 3 4 

R 

724000 

A 


PX A 



2089 

01 335 

R 

040562 

R 


DAC 

INTX 


2090 

01336 

R 

730000 

A 


PLA 



2091 

01337 

R 

040563 

R 


DAC 

TNTL 


2092 

01340 

R 

700001 

A 


CLSF 



2093 

01341 

R 

601073 

R 


JMP 

NFLAG 


2094 






. ENOC 



2095 

01342 

R 

700004 

A 

CLOK 

CLOF 



2096 

01343 

R 

200007 

A 


LAC 

R07 

/GET CLOCK CELL 

2097 

01344 

R 

740030 

A 


I AC 



2098 

01 345 

R 

040564 

R 


DAC 

IOTMP 

/KEEP CLOCK + 1 TICK. 

2099 

0.1346 

R 

754001 

A 


CLCiCLL 


- 

2100 

01347 

R 

040007 

A 


DAC* 

R07 

/RESET CLOCK CELL FOR 1 TICK. 

2101 

01350 

R 

700044 

A 


CLON 



2102 

01351 

R 

200656 

R. 


LAC 

RUNDOWN 

/GET COUNTER FOR S^APPED-IM TIME. 

2103 

01352 

R 

740300 

A 


SZAISMA 


/ANY USER IN? 

2104 

01353 

R 

601361 

R 


JMP 

CLOK 1 

/NO. MONITOR RUNNING 

2106 

01354 

R 

200564 

R 


LAC 

IOTMP 

/YES, 

2106 

01 355 

R 

300174 

R 


ADD 

CLKCMT 

/UPDATE CPU COUNTER 

2107 

01356 

R 

040174 

R 


DAC 

CLKCNT 


2108 

01357 

R 

745100 

A 


SPA iCLL 



2109 

01360 

R 

140174 

R 


DZM 

CLKCMT 


2110 

01 361 

R 

200564 

R 

CLOK1 

LAC 

IOTMP 


211 1 

01362 

R 

301531 

R 


ADD 

SECOND 

/UPDATE ONE SECOND COUNTER 

2112 

01363 

R 

041531 

R 

/■ 

DAC 

SECOND 


2113 

01364 

R 

741100 

■A 


SPA 


/AT OR PAST END-0F-S5C3MD? 

211 4 

01 365 

R 

601456 

R 


JMP 

CL0CK1 

/NO. 

2115 

01366 

R 

723703 

A 


AAC 

-CLKHZ-1 


2116 

01367 

R 

041531 

R 


DAC 

SECOND 

/RESET END-0F-SECONO TO -CLKHZ+ 

2117 








/NUMBER OF TICKS THIS' SECOND 

2118 

01370 

R 

234047 

E 


LAC* 

CLOCK 

/TIME OF DAY 

2119 

01371 

R 

740030 

A 


I AC 


/PLUS 1 SECOND 

2120 

01372 

R 

553644 

R 


SAD 

(250600 

/.DEC 86400 ( SECONDS PER DAY). 

2121 

01 373 

R 

754002 

A 


CLAiSTL 


/RESET TIME-QF-DAY, IF MIDNIGHT 

2122 

01374 

R 

074047 

E 


DAC* 

CLOCK 


2123 

01 375 

R 

740200 

A 


SZA 


/midnight? 

21 24 

01 376 

R 

601425 

R 


JMP 

CL0CK6 

/NO /* 1 2 JAH1 7* 

2125 






.EJECT 
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MUMPS 

100 

r* 

LUCK INTERRUPT RESPONSE 


2126 





/MID N I G 

HT 



2127 

01377 

K 

234053 

£ 


LAC* 

DATE. 2 

/YES, CHECK IF LAST DAY OF MONTH 

2128 

01 400 

R 

652000 

A 


LMQ 



2129 

01401 

R 

234052 

E 


LAC* 

DATE. 1. 


2130 

01402 

R 

660606 

A 


LLSS 

6 


2131 

01403 

R 

513645 

R 


AND 

( 7777 


2132 

01404 

R 

574124 

£ 


SAD* 

MONTH 


2133 

0 1 405 

R 

741000 

A 


SKP 



2134 

01406 

R 

601416 

R 


JMp 

CLOCK? 

/NOT LAST DAY. 

2135 

01407 

R 

234052 

£ 


LAC* 

DATE . 1 

/LAST DAY 

2136 

01410 

R 

513646 

R 


AND 

(777700 


2137 

0 1411 

R 

353647 

R 


TAD 

(160 

/ADD 1 TO MONTH 

2136 

01412 

R 

07405? 

£ 


D AC * 

DATE . 1 


2139 

01413 

R 

213650 

R 


LAC 

(600000 


2140 

01414 

R 

074053 

£ 


DAC* 

DATE. 2 

/SET DAY TO ZERO 

2141 

01415 

R 

1741 24 

£ 


DZM* 

MONTH 

/CLEAR MONTH AS FLAG TO MUPAK 

2142 

01416 

R 

234053 

£ 

CL0CK2 

LAC* 

DATE. 2 


2143 

01417 

R 

553651 

R 


SAD 

(710000 


2144 

01420 

R 

213652 

R 


LAC 

(570000 


2145 

01421 

R 

313637 

R 


ADD 

( 10000 


2146 

01 42? 

R 

074053 

R 


DAC* 

DATE. 2 

/SET DAY = DAY+ 1 

2147 

01 423 

R 

553650 

R 


SAD 

(600000 


2148 

0142 4 

R 

474052 

£ 


ISZ* 

DATE . 1 

/INC. FIRST DIGIT OF DATE IF NECESSARY 

2149 

01425 

R 

440571 

R 

CLOCK6 

ISZ 

SLPCNT 

/INDICATE A SECOND HAS PASSED /*12JAH17* 

2150 





/CHECK 

ON DESIRED USE OF 

CONSOLE TELLY 

2151 

01426 

R 

200607 

R 


LAC 

ACSWR 


2152 

01427 

R 

513653 

R 


AND 

(40 

/40 - SWITCH 12 

2153 

01430 

P 

540574 

R 


SAD 

DOTS lv 

/ANY CHANGE IN ODT SWITCH? 

2154 

01431 

p 

601441 

R 


JMP 

CLOCKS 

/NO, SAME' AS BEFORE. 

2155 

01432 

R 

741200 

A 


SNA 


/LEAVING ODT? 

2156 

01433 

R 

700406 

A 


TLS 


/YES, GENERATE FLAG 

2157 

014 3 4 

R 

213654 

R 


LAC 

(EXIT 

/YES, JUST CHANGED-- I N SURE AGAINST 

2159 

014 3 5 

R 

074114 

£ 


DAC* 

HOUT 

/*!, 2JAH12* TELEPRINTER INT CRASH IN ODT 

2159 

01436 

R 

200607 

R 


LAC 

ACS W R 

/SETUP QDTSW • 

2160 

01437 

R 

513653 

R 


AND 

(40 


2161 

0144 0 

R 

040574 

R 


DAC 

QDTSW 

/NON-ZERO=MINI-ODT ; 0=MUMPS OR .MONITOR 

216? 

01441 

R 

750200 

A 

CLOCKS 

SZAiCLA 



2163 

01442 

R 

601454 

R 


JMP 

CL0CK4 


2164 

01443 

R 

200607 

R 


LAC 

ACSWR 


21.65 

444 

R 

51 3655 

R 


AND 

( 37 

/ 3 7 - GET TERMINAL NUMBER 

2166 

01445 

R 

652000 

A 


LMQ 



2167 

0 3 446 

R 

353656 

R 


TAD 

(-NUMAT 


2168 

01447 

R 

755100 

A 


SPA 1 CL A 

iCLL 


2169 

01450 

R 

641002 

A 


LACQ 



2170 

01451 

R 

640711 

A 


ALS 

11 

/POSITION FOR COMPARE IN DC01 ROUTINE 

2171 

01452 

R 

540575 

R 


SAD 

MUNTTY 


217? 

01453 

R 

601456 

R 


JMP 

CLOCK! 

/SAME AS LAST TIME 

2173 

01454 

R 

140576 

R 

CLDCK4 

DZM 

CONS W 


2174 

01455 

» 

040575 

R 


DAC 

MQNTTY 


2175 

01456 

R 

200610 

R 

CLOCK 1 

LAC 

ACSWRX 

/UPDATE SYSTAB ENTRIES 

2176 

01457 

R 

740004 

A 


□ AS 



2177 

01 460 

R 

040662 

R 


DAC 

ACSWRO 
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MUMPS 

1 0 0 


LOCK INTERRUPT RESPONSE 


2178 

01 461 

R 

750004 

A 


LAS 



2179 

0146? 

P 

040607 

R 


0 AC 

ACS W R 


2180 

01463 

R 

700314 

A 


IORS 



2181 

01464 

R 

040606 

R 


DAC 

.IORS 


2187 

01465 

R 

200656 

R 


LAC 

RUNDOWN 


2188 

01466 

R 

741100 

A 


SPA 


/EXIT, USER NOT SWAPPED IN. 

2184 

01467 

R 

440656 

R 


1SZ 

RUNDOWN 

/BUMP SLICE COUNT AND EXIT IF TIME NOT UP 

2 1 8 S 

01470 

ft 

601075 

ft 


JMP 

EXIT 


2186 

01471 

R 

200652 

R 


LAC 

SWAPS W 

/SLICE TIME IS UP. 

2187 

01472 

R 

750201 

A 


SZAiCLC 


/CHECK FOR SWAP INHIBIT 

2188 

01473 

R 

601476 

R 


JMP 

CLKHNG 


2189 

01474 

n 

n. 

040652 

ft 


DAC 

SWAPS W 

/SW WAS SET FOR NO SWAP? 

2190 








/RESET FOR "SWAP- WHEN- DONE" 

2191 

01475 

ft 

601075 

ft 


JMP 

EXIT 


2192 





/ 




2193 



703304 

A 

DBK=703304 



2194 

01476 

R 

200601 

R 

CLKHNG 

LAC 

PRVDKA 

/W AS CURRENT PART. LAST 

2195 

01477 

R 

540654 

R 


SAD 

PRTNMB 

/ONE TO USE DISK? 

2196 

01500 

R 

741000 

A 


SKP 


/YES 

2197 

01501 

R 

601504 

R 


JMP 

NtiSEDK 

/NO 

2198 

01502 

ft 

200716 

R 


LAC 

DSKREP 


2199 

01503 

R 

040600 

R 


DAC 

OSKCNT 

/RESET MAX # OF CONSEC DISK ACCESSES 

2200 



001504 

R 

NUSE0K = 

. 



2201 






• 1 FP M Z 

API 


2202 

01504 

R 

703304 

A 


D6K 


/FREE UP API LEVEL 

2203 






. ENDC 



2204 

0J.505 

R 

200562 

R 


LAC 

INTX 


2205 

01506 

H 

721000 

A 


PAX 



2206 

01.507 

P 

200563 

R 


LAC 

INTL 


2207 

01510 

R 

722000 

A 


PAL 



2208 

01511 

R 

200561 

R 


LAC 

INTMQ 


2209 

0151? 

R 

652000 

A 


LMQ 



2210 

01513 

R 

200000 

A 


LAC 

0 

/CHECK FOR PC AT HANG 

221 1 

01514 

R 

513657 

R 


AND 

(77777 


221? 

01515 

R 

553660 

R 


SAD 

(HANG+1 


2213 

01516 

R 

601523 

R 


JMP 

CLOCK 3 


2214 

01517 

R 

200560 

R 


LAC 

I N'T AC 

/SWAP FROM SLICE OVERFLOW 

2215 

01520 

P 

040156 

R 


DAC 

AC 


2216 

01521 

R 

200000 

A 


LAC 

0 


2217 

0 1 5 2 ? 

R 

601545 

R 


JMP 

HANG. 4 


2218 

01523 

R 

200560 

R 

CLOCK3 

LAC 

INTAC 

/SWAP FROM JMS HANG 

2219 






. IFNOZ 

XVM 

/*12JAH15* 

2220 






JMP 

HANG. 2 


2221 






• ENDC 


/* 1 2 JAH1 5* 

2222 






.IFPNZ 

XVM 

/*1 2 JAH1 5* 

2223 

01524 

R 

040156 

ft 


DAC 

AC 

/SAVE ACCUMULATOR /*12JAH15* 

2224 

01525 

R 

2 0 0 0 0 0 

A 


LAC 

0 

/FETCH I NT . ADDR /*12JAH15* 

2225 

91526 

p 

513661 

R 


AMD 

(700000 

/EXTRACT LINK, BANK, USER STATUS /*12JAH15* 

2226 

01527 

R 

241533 

R 


XOP 

HANG 

/INSERT RETURN ADDR /*12JAH15* 

2227 

01530 

R 

601545 

ft 


JMP 

HANG. 4 

/JOIN HANG ROUTINE /*12JAH15* 

2228 






. ENDC 


/* 1 2 JAH 15* 


2 2 2 9 


/ 
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MUMPS 100 


LOCK INTERRUPT RESPONSE 


2230 

2231 


01531 R 777704 a SECOND -CLKHZ /SIXTY TICKS OR W H A T RAVE YOU 

01532 R 000000 A CLKT^P 0 



page: 6 4 

M U M P 5 

5 

1 0 0 

MONITOR 





223? 






.TITLE 

MONITOR 



2233 





/HANG SUBROUTINE; SWAPOUT, STATUS CHECK, SWAPIN 


2234 





/ 





2235 





/prtnmb 

IS NEXT 

PARTITION TO 

RUN 


2236 





/PRTIDX 

IS LAST 

PARTITION 



2237 





/SCOUiNT 

IS TEMPORARY POINTER 



22 3 8 





/MON IT 

IS 0 IF 

NO LAST USER, 

ONE LESS THAN START OF PARTITION OTHERWISE 


2239 





/ 





2240 

0 15 3 3 

R 

740040 

A 

HANG 

XX 




2241 

01534 

R 

705522 

A 


INTOFF 




2242 

015 35 

R 

040156 

R 

HANG. 2 

DAC 

AC 



2243 

01536 

R 

201533 

R 


LAC 

H AUG 



2244 






.IFPNZ 

XVM 


/*12JAH15* 

2245 

015 3 7 

R 

741400 

A 


SZL 


/LINK SET? 

/*! 2 JAH1 5* 

22 46 

01540 

R 

253662 

R 


XQR 

( 400000 

/YES 

/* 1 2 JAH1 5* 

2247 



707761 

A 

SBA=707761 



/♦12JAH15* 

2248 

01541 

R 

7 0 7 7 61. 

A 


SB A 


/BANK MODE? 

/* 1 2 JAH1 5* 

2249 

01542 

R 

741000 

A 


SKP 


/NO 

/*12JAB15* 

2250 

01543 

R 

253663 

R 


XOR 

(200000 

/YES 

/* 1 2 JAH1 5* 

225 1 

015 4 4 

K 

25 36o4 

R 


XOR 

( 100000 

/ALWAYS IN USER MODE 

/* 1 2 JAH1 5* 

2252 






. ENQC 



/* 1 2 JAH1 5* 

225 3 

01545 

ft 

040155 

R 

HANG. 4 

DAC 

PC 

/SLICE OVERFLOW ENTRY 


2254 

01546 

R. 

750030 



CL A l I AC 


/+1 TO RUNDOWN 


2255 

01547 

R 

040656 

R 


DAC 

RUNDOWN 



2256 

01550 

ft 

705521 

A 


INTON 




2257 

01551 

R 

641002 

A 


LACQ 




2258 

0155? 

R 

040157 

R 


DAC 

MQ 



2259 

01553 

R 

724000 

A 


PXA 




2260 

01554 

ft 

040160 

R 


DAC 

XR 



2261 

01555 

R 

730000 

A 


PLA 




2 262 

01556 

ft 

040161 

R 


DAC 

LR 



2263 






. IFPNZ 

G G R 0 w 

/IF GARBAGE COLLECTING ONLY WHEN NO 


2264 



001557 

R 

S T A C H 8 = 

• 


/ONE RUNNABLE — HAVE GARB RETURN TO HERE 

• 

2265 






.ENDC 




2266 

01557 

R 

200571 

R 

statch 

LAC 

SLPCNT 

/HAS A SECOND (OR MORE) ELAPSED /*12JAH17* 

2267 

01560 

R 

740200 

A 


SZA 


/SINCE LAST UPDATE OR SLEEP HUNG PARTS. 

/*12JAH17* 

2268 

01561 

R 

603102 

R 


JMp 

SLPCHK 

/YES, GO UPDATE SYMEMD & PRTEND /*12JAH17* 

2269 

01562 

R 

140571 

R 

STACHO 

DZM 

SLPCNT 

/CLEAR COUNT /*12JAH17* 

2270 

01563 

R 

200662 

R 


LAC 

ACSWRO 

/CHECK FOR SYSTEM CLOSE /*12JAH17* 

2271 

01564 

P 

513650 

R 


AND 

(600000 

/SWITCHES 0 AMD 1 


2272 

01565 

R 

253650 

R 


XOR 

(600000 



2273 

01566 

P 

040663 

R 


DAC 

HLTSWT 



2274 

01567 

R 

200657 

R 


LAC 

PRTIDX 

/GET CURRENT POINTER TO STATUS TABLE 


2275 

0 15 7 0 

R 

140654 

R 

stachi 

DZM 

PRTNMB 

/ZERO CHECK FOR RUNNABLE PARTITION 


2276 

01571 

R 

740030 

A 

STACH4 

I AC 


/BUMP STATUS TABLE POINTER, AND 


2277 

01572 

R 

540330 

R 


SAD 

ST ATX 

/IF END-OF-TABLE, 


2278 

01573 

ft 

213665 

R 


LAC 

(STAT1 

/WRAP AROUND TO BEGINNING. 


2 2 7 Q 

01574 

R 

040565 

R 


DAC 

SCOUMT 



2280 

01575 

R 

750004 

A 


LAS 


/READ SW'S DIRECTLY FOR EMG HALT 


2281 

01576 

R 

553666 

R 


SAD 

(4000 

/CHECK IF EMERGENCY HALT - SWITCH 6 


2282 

01577 

ft 

601623 

R 


JMP 

STACH7 

/YES. 


2283 

01600 

P. 

220565 

R 

STACH9 

LAC* 

SCQUNT 

/* 1 2 JAH1 0* NO, CHECK STATUS. 
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mumps 100 


MOM I TOR 


2294 

01601 

Q 

25 3o67 

R 


XOR 

Cl 

2235 

01602 

R 

513670 

R 


AND 

C 4377 

2236 

01603 

R 

744200 

A 


SZAICLL 


2287 

01504 

R 

601632 

R 


JMP 

STACH3 

2288 

01605 

R 

200654 

R 


LAC 

PRTNMB 

2289 

01606 

R 

740200 

A 


SZA 


2290 

0 16 0 7 

R 

601612 

R 


JMP 

» + 3 

2291 

01610 

R 

200565 

R 


LAC 

SCOUNT 

2292 

01611 

R 

040654 

R 


DAC 

PRTNMB 

2293 

01612 

R 

777377 

A 


LAW 

1 7377 

2294 

01613 

R 

705522 

A 


INTOFF 


2295 

01614 

R 

520565 

R 


AND* 

SCOUNT 

2296 

01615 

R 

560565 

R 


SAD* 

SCOUNT 

2297 

01616 

R 

601632 

R 


JMP 

STACH3 

2298 

01617 

R 

060565 

R 


DAC * 

SCOUNT 

2299 

01620 

R 

200565 

R 

S T A C H 2 

LAC 

SCOUNT 

2300 

016 21 

R 

040654 

« 


DAC 

PRTNMB 

2301 

01622 

R 

601644 

R 


JMP 

EXEC 

2302 





/ 



2 30 3 

01623 

R 

200577 

R 

ST AC H 7 

LAC 

OS K ACT 

2 30 4 

01624 

R 

740200 

A 


SZA 


2305 

01625 

R 

601600 

R 


JMP 

STACH9 

2 306 

01626 

P 

440570 

R 


ISZ 

EMERG 

2307 

01627 

R 

220565 

R 


LAC* 

SCOUNT 

2308 

01630 

R 

744200 

A 


SZAICLL 


2309 

0 1. 6 3 1 

Q 

601620 

R 


JMP 

STAC H 2 

2310 





/ 



231 1 



001632 

R 

STACO 3 = 

• 


2312 






.IFPNZ 

API 

2313 

01632 

R 

703304 

A 


DBK 


2314 

016 3 3 

R 

700042 

A 


ION 


2315 






, ENDC 


2316 

0 1. 6 3 4 

R 

705521 

A 


IN TON 


2317 

01635 

R 

200565 

R 


LAC 

SCOUNT 

2318 

01636 

R 

540657 

R 


SAD 

PRTIDX 

2310 

01637 

R 

741000 

A 


SKP 


2 320 

01 640 

R 

601571 

R 


JMP 

STACH4 

2 321 






.IFPNZ 

GGROW 

2322 

01641 

R 

200654 

R 


LAC 

PRTNMB 

2 3 2 3 

016 4 2 

R 

745200 

A 


SNA1CLL 


2324 






.ENDC 


2325 

01643 

R 

634077 

E 


JMP* 

GARB 

2326 






. IFZER 

GGROW 

2327 





ST A CHS 

LAC 

PRTNMB 

2323 






SNA'CLL 


2320 






JMP 

STATCH 

2 3 30 






.ENDC 


2 331 






.EJECT 



./PARTITION RUNNABLE? 
/NOT RUNNABLE 


/FIRST RUNNABLE? 
/NO 


/CHECK IF PRIORITY RUN 


/NO 

/YES, RESET PRIORITY BIT. 


/GLOBAL DATA /*12JAH17* 

/M2JAH10* SWITCH OWNED? 

/* 1 2 JAH1 0* YES, NO EMERGENCY CLOSE NOW 

/INDICATE SWITCH 6 IS ON /*12JAH17* 

/* t 2 JAH1 0* 00 EMERGENCY CLOSE 

/ IS PARTITION ACTIVE 

/YES, RUN IT REGARDLESS OF STATUS 


/FINISHED LOOP? 

/YES 

/NO 

/ANYONE RUNNABLE? 


/*12JAH12* NO, LET'S 00 SOME GARBAGE COLLECTION 
/ANYONE RUNNABLE 
/NO, LOOP SOME MORE 



page: 

2332 

2333 

2334 

2335 
2.336 
2337 
2 3 3 8 

2339 

2340 

2341 

2342 

2343 

2344 
2 345 

2346 

2347 
2349 

2349 

2350 
235 1 

2352 

2353 

2354 

2355 
2 356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 
2 3 66 

2367 

2368 

2369 

2370 
237 1 

2372 

2373 

2374 

2375 

2376 
2 37 7 
2 37 8 
2379 
2390 

2381 

2382 

2383 


66 MUMPS 100 MO MI TOR 


/EXECUTIVE; FOR 32K core or less 
/ 




001644 

R 

EX EC- * 

. IFPNZ 

API 


01644 

R 

703304 

A 


DBK 
• EWDC 



01645 

R 

705521 

A 


INTOM, 



01646 

R 

400720 

R 


XCT 

SU6QUES 

/WHICH DISK CURRENTLY RUNNING? 

01647 

R 

741000 

A 


SKP 


/SUBMERGED 

01650 

R 

601677 

R 


JMP 

EXEC2 

/SERIAL 

01651 

R 

200577 

R 


LAC 

DSK ACT 


016 5 2 

R 

741200 

A 


SNA 


/ANYONE USING DISK? 

01653 

R 

601672 

R 


JMP 

EXEC 1 

/NO 

01654 

R 

540654 

R 


SAD 

PRTNMB 

/IS NEW PARTITION USING DISK? 

01655 

R 

601705 

R 


JMP 

EX EC 4 

/YES 

01656 

R 

200654 

R 


LAC 

PRTNMB 

/RESET MONITOR LOOP 

01657 

R 

353671 

p 


TAD 

C INDTAB-STAT1 

/FETCH PTR TO PARTITION START 

01660 

R 

040565 

R 


DA C 

SCOUNT 


01661 

R 

220565 

R 


LAC* 

SCOUNT 

/GET PARTITION STARTING ADDRESS 

01662 

R 

040565 

R 


DAC 

SCOUNT 


01663 

p 

220565 

R 


LAC* 

SCOUNT 

/FETCH CONTENTS OF PC WORD 

01664 

R 

513672 

R 


AND 

(177777 

/STRIP OUT ADDRESSS 

01665 

R 

553673 

R 


SAD 

(PRODRT 

/IS THIS PARTITION WAITING FOR DISK? 

01666 

R 

741000 

A 


SKP 



01667 

R 

601705 

R 


JMP 

EXEC4 

/NO, SWAP HIM IN 

01670 

R 

200654 

R 


LAC 

PRTNMB 

/YE S, DON'T BOTHER SWAPPING HIM IN 

01671 

R 

601570 

R 


JMP 

STACH1 

/GO GET .NEXT ELGIBLE JOB 

01672 

P 

200717 

R 

EXEC1 

LAC 

SUBDSK 


01673 

P 

740300 

A 


SMA15ZA 


/WHICH DISK DESIRED? 

01674 

R 

601705 

R 


JMP 

EXEC4 

/SUBMERGED, SAME AS ONE RUNNING, PROCEED 

01675 

R 

213674 

R 


LAC 

(SKP 

/YES, DO XT' 

01676 

R 

601704 

R 


JMP 

EXEC 3 


01677 

R 

200717 

R 

EXEC2 

LAC 

SUBDSK 


01 700 

R 

741300 

A 


SPA «SNA 


/WHICH DISK DESIRED? 

01701 

R 

601705 

R 


JMP 

EXEC4 

/SERIAL, SAME AS ONE RUNNING, PROCEED 

017 0 2 

R 

140577 

R 


DZM 

DSK ACT 

/SUBMERGED, ZERO OWNERSHIP 

01703 

R 

213675 

R 


LAC 

(NOP 

/SWITCH TO SUBMERGED 

01704 

R 

040720 

R 

EXEC3 

DAC 

SUBQUES 




001705 

R 

EXEC4=. 




01 705 

R 

200660 

R 


LAC 

PRTIM 


01706 

R 

540654 

R 


SAD 

PRTNMB 


01707 

R 

603000 

R 


JMP 

SWPIN3 /PARTITION ALREADY SWAPPED IN 

01710 

R 

101725 

R 


JMS 

SWPOHT /OUT 

WITH THE OLD 

01711 

R 

102327 

R 


JMS 

S W PIN /IN WITH THE NEW 

01712 

R 

603000 

R 


JMP 

SWPIN3 



/GENERAL ENTRY TO HANG A DEVICE 
/ 

/SETS APPROPRIATE I/O HANG BIT IN JOB STATUS WORD 


/ 

/CALLING SEQUENCE: 
/ 

/ LAC 


X 


/X IS BIT 
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MUMPS 

100 
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2394 





/ 

STL 


STL FOR output; cll for input 

2335 





/ 

JMP 

DVHAM G 



2396 





/ 





2397 

01713 

R 

705522 

A 

DV'H A:\iG 

IN TOFF 




2389 

01714 

R 

040564 

R 


DAC 

1 0 T M P 



2389 

01715 

R 

740001 

A 


CMA 


/complement and 


2390 

01716 

R 

520654 

R 


AND* 

PRTNMB 

/MASK NITH JOB STATUS 

WORD 

2 391 

01717 

R 

240564 

R 


XOR 

IOTMP 

/SET BIT 


2392 

01720 

R 

060654 

R 


DAC* 

PRTNMB 

/REPLACE STATUS 


2393 

01721 

R 

101533 

R 

DVHiMGl 

JMS 

RANG 

/ENTRY FOR PAPER TAPE 

READER 

2394 

01722 

R 

741400 

A 


SZL 


/INPUT or output? 


2 3 95 

01723 

R 

603253 

R 


JMP 

XOUT4A 

/OUTPUT 


2396 

01 724 

R 

603334 

P 


JMP 

XPACK2 

/INPUT 


2397 






.EJECT 
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100 

MON! I TOR 

\ 


2398 





<; /CONTEXT SWITCH 

OUT ROUTINE 


2399 

01725 

R 

740040 

A 

'• Slip OUT XX 



2400 

01726 

ft 

200661 

R 

LAG 

MON IT /ANY "OLD " USER? 


2401 

017 2 7 

ft 

741200 

A 

SNA 



2402 

01730 

p 

621725 

R 

JMP* 

S W POUT /NO- SYSTEM WAS IDLE; 

NOTHING TO SWAPQUT 

2403 

017 31 

ft 

721000 

A 

PAX 


/* 1 2 JAH1 7* 

2404 





.DBREL 

; DBA 

/♦I 2 JAH1 7* 


^ 01 732 

8 \ 

707762 

T 




2405 




/SWAP OUT OLD USER 


2406 

01733 

R I 

200155 

R 

LAC 

PC p v j2 A 

i , x o/bHi | )<v 5-fV 


2407 

01734 

R 

050001 

A 

DAC 

/* 1 2 JAH1 7* 

240 8 

01735 

ft 

200156 

ft 

LAC 

ft /'t 

HU 


2409 

017 36 

R 

050002 

A 

DAC 

2 , X 

/* 1 2JAH1 7* 

2410 

017 3 7 

ft 

200157 

R 

LAC 

MQ 


2411 

01740 

R 

050003 

A 

DAC 

3.X 

/* 1 2 JAH 1 7 * 

2412 

01741 

R 

200160 

R 

LAC 

XR 


2413 

01742 

R 

050004 

A 

DAC 

4.X 

/*12JAH17* 

2414 

01743 

R 

200161 

ft 

LAC 

LR 


2415 

01744 

ft 

050005 

A 

DAC 

5.X 

/*12JAH17* 

2416 

01745 

R 

200010 

A 

LAC 

RIO 


2417 

01746 

R 

050006 

A 

DAC 

6.X 

/*12JAH17* 

2418 

01747 

R 

200013 

A 

LAC 

R 1 3 


2419 

01750 

R 

050007 

A 

DAC 

7.X 

/*12JAH17* 

2420 

017 51 

R 

200014 

A 

LAC 

R 1 4 


2421 

01752 

ft 

050010 

A 

DAC 

10.X 

/* 1 2 JAH1 7* 

2422 

01753 

R 

200015 

A 

LAC 

ft 1 5 


2423 

01754 

R 

050011 

A 

DAC 

11, X 

/*12JAH17* 

2424 

01 755 

ft 

200016 

A 

LAC 

Rib 


2425 

01756 

R 

050012 

A 

DAC 

12.X 

/ * 1 2 J A H 1 7 * 

2426 

01757 

ft 

200017 

A 

LAC 

R 1 7 


2427 

01760 

ft 

050013 

A 

DAC 

13.X 

/*1 2JAH1 7* 

2428 

01761 

R 

200020 

A 

LAC 

R20 


2429 

01762 

ft 

050014 

A 

DAC 

14, X 

/♦12JAH17* 

2430 

01763 

R 

200162 

R 

LAC 

PRNCDV 

/* 1 2 J AH 1 7 * 

2431 

01764 

R 

050015 

A 

DAC 

15.X 

/* 1 2 JAH1 7* 

2432 

01765 

R 

200163 

R 

LAC 

INPUT 

/*12JAH17* 

2433 

01766 

R 

050016 

A 

DAC 

1 6 , X 

/*12JAH17* 

2434 

01767 

R 

200164 

R 

LAC 

OUTPUT 

/* 1 2JAH1 7* 

2435 

01770 

ft 

050017 

A 

DAC 

17, X 

/*12JAH17* 

2436 

01 771 

P 

200165 

R 

LAC 

STACK 

/♦12JAH1 7* 

2437 

01772 

R 

050020 

A 

DAC 

20.X 

/* 1 2 JAH 1 7* 

2438 

01773 

R 

200166 

R 

LAC 

SPOINT 

/*12JAH17* 

2439 

017 7 4 

R 

050021 

A 

DAC 

21.X 

/* 1 2 JAH1 7* 

24 40 

017 7 5 

R 

200167 

K 

LAC 

END 

/*12JAH17* 

2441 

01776 

R 

050022 

A 

DAC 

22, X 

/* 1 2 JAH1 7* 

2442 

017 7 7 

R 

200170 

R 

LAC 

SYM6EG 

/* 1 2 JAH1 7* 

244 3 

0 2 0 0 0 

R 

050023 

A 

DAC 

23.X 

/*12JAH17* 

2444 

02001 

p 

200171 

R 

LAC 

obpnt 

/*12JAH1 7* 

2445 

02002 

R 

050024 

A 

DAC 

2 4, X 

/*12JAH17* 

2446 

02003 

R 

200172 

R 

LAC 

WRTSW 

/* 1 2 JAH1 7* 

2447 

0 20 0 4 

ft 

050025 

A 

DAC 

25.X 

/I 1 1 2 JAH1 7* 

2448 

02005 

R 

200173 

R 

LAC 

SWPCtNT 

/*12JAH17* 
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2449 

02006 

R 

050026 

A 


0 AC 

26, X 

/* 1 2JAH1 7* 

2450 

02007 

R 

200174 

R 


LAC 

CLKCNT 

/* 1 2 JAH1 74: 

2451 

02010 

R 

050027 

A 


DAC 

27, X 

/♦12JAH17* 

2452 

020U 

R 

200175 

R 


LAC 

I4RTCNT 

/♦l 2 JAH1 7* 

2453 

0201 2 

R 

050030 

A 


DAC 

30, X 

/* 1 2 JAH1 7* 

2454 

0201 3 

R 

200176 

R 


LAC 

RDCNT 

/*12JAH17* 

2455 

0 2 014 

R 

050031 

A 


DAC 

31 ,X 

/*12JAH17* 

2456 

0201 5 

R 

200177 

R 


LAC 

SYM 

/*12JAH17* 

2457 

02016 

R 

050032 

A 


DAC 

32, X 

/* 1 2 JAH1 7* 

2458 

0 2 017 

R 

200200 

R 


LAC 

SCRIP 

/*12JAH17* 

2459 

02020 

R 

050033 

A 


DAC 

3 3 , X 

/*12JAH17* 

2 460 

02021 

R 

200201 

R 


LAC 

SAVPRD 

/*12JAH17* 

2461 

02022 

R 

050034 

A 


DAC 

34, X 

/*12JAH17* 

2462 

02023 

R 

200202 

R 


LAC 

TEMP 

/*12JAH!7* 

2463 

02024 

R 

050035 

A 


DAC 

35, X 

/*12JAH17* 

2464 

02025 

R 

200203 

R 


LAC 

FORTST 

/* 1 2 JAH1 7* 

2465 

02026 

R 

050036 

A 


DAC 

36, X 

/*12JAH17* 

2466 

02027 

R 

200204 

R 


LAC 

SYMS 

/* 1 2 JAH 1 7* 

2467 

02030 

R 

050037 

A 


DAC 

37, X 

/* 1 2 JAH1 7* 

2468 

02031 

R 

200205 

R 


LAC 

SCRIPS 

/* 1 2 JAH1 7 * 

2 466 

02032 

R 

050040 

A 


DAC 

40, X 

/*12JAH17* 

2470 

02033 

R 

200206 

R 


LAC 

LOC 

/♦12JAH17* 

2471 

02034 

R 

050041 

A 


DAC 

41 ,X 

/* 1 2 JAH1 7* 

2472 

02035 

P 

200207 

p 


LAC 

VAL 

/ * 1 2 JAH 1 7 * 

247 3 

020 36 

R 

050042 

A 


DAC 

42, X 

/*12JAH17* 

2474 



000042 

A 

0 = 42 



/♦I 2JAH17* 

2475 






.IFPNZ 

MONEY 

/* 1 2 JAH1 7* 

2476 



000043 

A 

Q = Q + 1 



/*12JAH17* 

2477 

02037 

R 

200210 

R 


LAC 

MONYSW 

/* 1 2 JAH1 7* 

2478 

02040 

R 

050043 

A 


DAC 

Q , X 

/*12JAH17* 

2479 






.ENDC 


/* 1 2 JAH 1 7 * 

2480 






.IFPNZ 

F MONEY 

/* 1 2 JAH 1 7 * 

2481 



000044 

A 

Q = a + 1 



/* 1 2 JAH1 7* 

2482 

02041 

R 

200211 

R 


LAC 

VALF 

/* 1 2JAH1 7* 

2483 

02042 

R 

050044 

A 


DAC 

a , x 

/* 1 2 JAH1 7* 

2484 



000045 

A 

Q = Q + 1 



/ * 1 2 . J A H 1 7 * 

2485 

02043 

R 

200212 

R 


LAC 

FLOAT 

/* 1 2 JAH1 7* 

2486 

02044 

R 

050045 

A 


DAC 

Q , X 

/* 1 2 JAH1 7 * 

2487 






• ENDC 


/*12JAH17* 

2488 

02045 

R 

20021 3 

R 


LAC 

□ FLAG 

/ * 1 2 JAR 1 7 * 

2489 

02046 

R 

050046 

A 


DAC 

Q+l , X 

/♦12JAH17* 

2490 

02047 

R 

200214 

R 


LAC 

A 

/* 1 2 JAH1 7* 

2491 

02050 

R 

050047 

A 


DAC 

Q + 2 , X 

/*12JAH17* 

2492 

02051 

R 

200215 

R 


LAC 

SUM 

/ * 1 2 JAH1 7 * 

2493 

02052 

R 

050050 

A 


DAC 

0 + 3, X 

/♦ 1 2 JAH1 7* 

2494 

02053 

R 

200216 

R 


LAC 

TERM 

/*12JAH17* 

2495 

02054 

R 

050051 

A 


DAC 

Q + 4 , X 

/*12JAH17* 

2496 

02055 

R 

200217 

P 


LAC 

ACTEMP 

/*12JAH17* 

2497 

02056 

R 

050052 

A 


DAC 

Q + 5 , X 

/* 1 2 JAH1 7* 

2499 

02057 

R 

200220 

P 


LAC 

IPOINT 

/* 1 2JAH1 7* 

2499 

02060 

R 

050053 

A 


DAC 

Q + 6 , X 

/*12JAH17* 

2500 

02061 

R 

200221 

R 


LAC 

I PLACE 

/* 1 2 JAH1 7* 
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2501 

02062 

R. 

050054 

A 

0 AC 

9+7 , X 

2502 

02063 

R 

200222 

R 

LAC 

□POINT 

2501 

02064 

ft 

050055 

A 

DAC 

Q+IO.X 

2504 

02065 

R 

200223 

R 

LAC 

□PLACE 

2505 

02066 

R 

050056 

A 

DAC 

9+1 1 ,X 

2506 

02067 

R 

200224 

R 

LAC 

TEMPI 

2507 

02070 

R 

050057 

A 

DAC 

9+12,X 

2508 

02071 

R 

200225 

R 

LAC 

P0TNT1 

2509 

02072 

R 

050060 

A 

DAC 

Q + 1 3 , X 

2510 

02073 

R 

200226 

R 

LAC 

PLACE! 

251 1 

0 20 7 4 

R 

050061 

A 

DAC 

9+ 1 4 , X 

2512 

02075 

R 

200227 

R 

LAC 

TEMP2 

2513 

02076 

R 

050062 

A 

DAC 

Q+l 5 ,X 

251 a 

02077 

R 

200230 

ft 

LAC 

P 0 1 N T 2 

2515 

02100 

R 

050063 

A 

DAC 

9+16. X 

2516 

02101 

R 

200231 

R 

LAC 

PLACE2 

2517 

02102 

R 

050064 

A 

DAC 

Q+17,X 

2518 

02103 

R 

200232 

R 

LAC 

BSUM 

2519 

02104 

R 

050065 

A 

DAC 

9+20 , X 

2520 

02105 

ft 

200233 

R 

LAC 

8TERM 

2521 

02106 

R 

050066 

A 

DAC 

9 + 21 ,X 

2522 

02107 

R 

200234 

R 

LAC 

8 7 AL 

2523 

02110 

R 

050067 

A 

DAC 

Q+22 , X 

2524 

02111 

R 

200235 

R 

LAC 

FORVAR 

2525 

02112 

R 

050070 

A 

DAC 

9 + 2 3 , X 

2526 

021 13 

R 

200236 

R 

LAC 

PROG 

2527 

021 14 

R 

050071 

A 

DAC 

9+24. X 

2528 

02115 

R 

200237 

R 

LAC 

POSER 

2529 

02116 

R 

050072 

A 

DAC 

9 + 25 ,X 

2530 

02117 

R 

2O0240 

R 

LAC 

ID 

2531 

02120 

R 

050073 

A 

DAC 

9+26 ,X 

2532 

02121 

R 

200241 

R 

LAC 

USER 

253 3 

02122 

R 

050074 

A 

DAC 

Q+27.X 

2534 

02123 

R 

200242 

R 

LAC 

BKCHAR 

2535 

02124 

R 

050075 

A 

DAC 

0 + 3 0 , X 

2536 

02125 

R 

200243 

R 

LAC 

T 1 

2537 

02126 

R 

050076 

A 

DAC 

Q + 3 1 , X 

2538 

02127 

R 

200244 

R 

LAC 

T2 

2539 

02130 

R 

050077 

A 

DAC 

9+32, X 

2540 

02131 

R 

200245 

R 

LAC 

T 3 

2541 

021 32 

R 

050100 

A 

DAC 

9 + 3 3 , X 

2542 

02133 

R 

200246 

R 

LAC 

IFSWT 

2543 

02134 

R 

050101 

A 

DAC 

9 + 34 , X 

2544 

02135 

R 

200247 

R 

LAC 

gunit 

2545 

02136 

R 

050102 

A 

DAC 

9 + 35 , X 

2546 

021 37 

R 

200250 

R 

LAC 

BUN IT 

2547 

02140 

R 

050103 

A 

DAC 

9+36, X 

2549 

02141 

p 

200251 

R 

LAC 

GBLKHT 

2549 

02142 

R 

050104 

A 

DAC 

9+37, X 

2550 

0 214 3 

R 

200252 

R 

LAC 

GHI 

2551 

02144 

R 

050105 

A 

DAC 

Q + 40 , X 

2552 

02145 

R 

200253 

ft 

LAC 

GHEAD 


/ * 1 2 J AH 1 7 * 

/* 1 2 JAH1 7 * 

/* 1 2 JAH1 7* 

/ * 1 2 JAH1 7 * 
/*12JAH17* 

/* 1 2 JAH 1 7 * 
/*12JAH17* 

/* 1 2 JAH1 7 * 

/* 1 2 JAH1 7* 
/*12JAH17* 

/* 1 2 JAH1 7* 
/♦12JAH17* 

/* 1 2 JAH1 7* 
/♦12JAH17* 
/*12JAH17* 

/ * 1 2 JAH 1 7* 
/♦12JAH17* 

/ * 1 2 JAH 1 7 * 

/* 1 2 JAH1 7* 
/♦12JAH17* 

/* 1 2 JAH1 7* 

/* 1 2 JAH 1 7* 

/* 1 2 JAH1 7* 

/* 1 2 JAH1 7* 

/*12 JAH17* 

/*12JAH17* 

/* 1 2 JAHi 7* 

/ * 1 2 JAH1 7 * 

/* 1 2 JAH1 7* 
/*12JAH17* 
/*12JAH17* 

/* 1 2 JAH1 7* 

/*12 JAH1 7* 
/*12JAH17* 

1 2 JAH1 74= 

/* 1 2 JAH1 7* 
/*12JAH17* 

/*! 2JAH17* 
/♦12JAH17* 

/* 1 2 JAH1 7* 
/*12JAH17* 

/* 1 2 JAH1 7* 

/* 1 2 JAH1 7* 

/* 1 2 JAH1 7* 
/*12JAH17* 

/* 1 2 JAH1 7* 

/* 1 2 JAHi 7* 

/* 1 2 JAH1 7* 

/* 1 2 JAH1 7t 
/* 1 2 JAH t 7* 

/* 1 2 JAH1 7* 

/* 1 2 JAH1 7* 
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2553 

02146 

9 

050106 

A 

DAC 

3+41 , X 

2554 

02147 

R 

200254 

R 

LAC 

GSYMROI 

2555 

02150 

R 

050107 

A 

DAC 

3+42 , X 

2556 

0 2151 

R 

200255 

R 

LAC 

ghdold 

2557 

92152 

R 

0501 1.0 

A 

DAC 

3 + 43, X 

2558 

02153 

R 

207041 

R 

LAC 

vtfRPART 

2559 

02154 

P 

0501 1 1 

A 

DAC 

3+44, X 

2560 

02155 

R 

206621 

R 

LAC 

CONT 

2561 

02156 

R 

050112 

A 

DAC 

0+45 ,X 

2562 

0 215 7 

P. 

206203 

R 

LAC 

BOOL 

2563 

02160 

R 

050113 

A 

DAC 

3 + 46 ,X 

2564 

02161 

R 

200256 

R 

LAC 

8QQLL 

2565 

02162 

R 

050114 

A 

DAC 

3+47 , X 

2566 

02163 

R 

200260 

R 

LAC 

BOOLE 

2567 

02164 

R 

050115 

A 

DAC 

Q + 50 , X 

2568 

02165 

R 

200262 

R 

LAC 

BOOLG 

2569 

02166 

R 

0501 16 

A 

DAC 

0 + 51 , X 

2570 

02167 

R 

204770 

R 

LAC 

CHARI 

2571 

02170 

R 

050117 

A 

DAC 

3+52, X 

2572 

02171 

H 

205014 

R 

LAC 

CHAR2 

257 3 

021 72 

R 

050120 

A 

DAC 

3 + 5 3, X 

2574 

02173 

R 

205201. 

R 

LAC 

CHECK 

2575 

02174 

R 

050121 

A 

DAC 

3+54, X 

2576 

02175 

R 

203535 

R 

LAC 

DISPAT 

2577 

02176 

R 

050122 

A 

DAC 

3+55, X 

2578 

0217 7 

R 

200264 

R 

LAC 

DISLOP 

2579 

02200 

R 

050123 

A 

DAC 

Q+56 , X 

2580 

02201 

R 

203641 

R 

LAC 

PRODA 

2581 

02202 

R 

050124 

A 

DAC 

0 + 57, X 

2582 

02203 

R 

204340 

R 

LAC 

PLACE 

2583 

0 2 204 

R 

050125 

A 

DAC 

Q+60 , X 

2584 

02205 

R 

204645 

R 

LAC 

□ CHAR 

2585 

02206 

R 

050126 

A 

DAC 

3 + 61 ,X 

2 586 

02207 

R 

204660 

R 

LAC 

□CHARI 

2587 

0 2 2 1. 0 

R 

050127 

A 

DAC 

Q+62 , X 

2588 

0221 1 

R 

204710 

R 

LAC 

SUBOPT 

2589 

02212 

R 

050130 

A 

DAC 

Q + 6 3 , X 

2590 

0221 3 

R 

205040 

R 

LAC 

SAVE 

2591 

0221 4 

R 

050131 

A 

DAC 

Q+64 , X 

2592 

02215 

R 

205103 

R 

LAC 

UM'SAVF 

2593 

02216 

R 

0501 32 

A 

DAC 

Q+65 , X 

2594 

02217 

R 

205123 

R 

LAC 

STEP 

2595 

02220 

R 

050133 

A 

DAC 

Q + 66 , X 

2596 

02221 

R 

205151 

R 

LAC 

PART 

2597 

02222 

R 

050134 

A 

DAC 

3 + 67 , X 

2596 

02223 

R 

207163 

R 

LAC 

EVAL 

2599 

0 2 2 2 4 

R 

050135 

A 

DAC 

3 + 7 0 , X 

2600 

02225 

R 

205434 

R 

LAC 

SYMBOL 

2601 

02226 

R 

050136 

A 

DAC 

Q + 7 1 , X 

2607 

02227 

R 

203724 

R 

LAC 

SYNTAX 

2603 

02230 

R 

050137 

A 

DAC 

3 + 72, X 

2604 

02231 

P 

203744 

R 

LAC 

STORl 


/*12JAH17* 

/* 1 2 JAH1 7* 

/*1 2JAH1 7* 

/* 1 2JAH17* 

/* 1 2 JAH1 7 * 
/*12JAH17* 

/* 1 2 JAH1 7* 
/♦12JAH17* 

/* 1 2 JAH1 7# 
/*12JAH17* 

/*1 2JAH1 7* 

/* 1 2 JAH1 7* 
/*12JAH17* 

/ * 1 2 JAH 1 7 * 

/* 1 2 JAH1 7* 
/♦12JAH17* 
/*12JAH17* 

/*! 2JAH17* 

/* 1 2 JAH1 7* 
/+12JAH17* 
/♦12JAH17* 

/* 1 2 JAH1 7* 
/*12JAH17* 
/+12JAH17* 
/*12JAH17* 
/+12JAH17* 

/* 1 2 JAH1 7 * 
/+12JAH17* 

/*12JAH17* 
/* 1 2 JAH1 7* 

/*! 2JAH17* 
/+12JAH17* 

/* 1 2 JAH1 7* 

/* 1 2 JAH1 7* 
/+12JAH17* 

/* 1 2 JAH1 7* 
/*12JAH17* 

/* 1 2 JAH 1 7 * 

/* 1 2 JAH1 7* 
/*12JAH17* 
/*12JAH17* 

/* 1 2 JAH1 7 * 

/* 1 2 JAH 1 7* 

/♦12JAH17* 

/*12JAH17* 

/* 1 2 JAH1 7 * 

/ * 1 2 JAH 1 7* 

/* 1 2 JAH1 7* 
/*12JAH17* 

/* 1 2 J AH1 7 * 
/*12JAH17* 
/*12JAH17* 
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2605 

02232 

R 

0501 40 

A 


DAC 

Q + 73.X 

2606 

02233 

R 

204034 

R 


LAC 

ST0R2 

2607 

02234 

R 

050141 

A 


DAC 

0+74, X 

2608 

02235 

R 

204103 

R 


LAC 

DEC I w 

2609 

02236 

R 

050142 

A 


DAC 

Q + 7 5 , X 

2610 

02237 

R 

204255 

R 


LAC 

DECOUT 

2611 

02240 

R 

050143 

A 


DAC 

3 + 7 6 , X 

2612 

02241 

R 

204320 

R 


LAC 

OCTOUT 

2613 

02242 

R 

050144 

A 


DAC 

3 + 77, X 

2614 

02243 

R 

206673 

R 


LAC 

FORMAT 

2615 

02244 

P 

050145 

A 


DAC 

3 + 100, X 

2616 

02245 

R 

205304 

R 


LAC 

A S S £ M 

2617 

02246 

R 

050146 

A 


DAC 

3 + 101 ,X 

2618 

02247 

R 

200266 

ft 


LAC 

GASS 

2619 

02250 

R 

050147 

A 


DAC 

0 + 102, X 

2620 

02251 

R 

203174 

R 


LAC 

our 

2621 

02252 

R 

050150 

A 


DAC 

0 + 103, X 

2622 

02253 

R 

204725 

R 


LAC 

ICHAR1 

262 3 

02254 

R 

050151 

A 


DAC 

Q + 1 0 4 , X 

2624 

02255 

R 

204235 

R 


LAC 

DEC 2 

2625 

02256 

R 

050152 

A 


DAC 

0+1 05, X 

2626 

02257 

R 

203325 

ft 


LAC 

packem 

2627 

02260 

R 

050153 

A 


DAC 

0 + 106, X 

2628 

02261 

R 

207066 

R 


LAC 

WRSTEP 

2629 

02262 

R 

050154 

A 


DAC 

0 + 1 0 7 , X 

2630 

02263 

R 

203712 

R 


LAC 

□ TEXT 

2631 

02264 

R 

050155 

A 


DAC 

Q + 110.X 

2632 

02265 

R 

205363 

R 


LAC 

SVE 

2633 

02266 

R 

050156 

A 


DAC 

Q+lll.X 

2634 

02267 

R 

207107 

fi 


LAC 

SETIO 

2635 

02270 

R 

050157 

A 


DAC 

0+11 2.X 

26 36 



000157 

A 

0 = 3 + 112 



2637 






, IFPMZ 

DT A 

2638 



000 1 60 

A 

Q = Q + 1 



2639 

02271 

R 

203701 

R 


LAC 

LOKOT 

2640 

02272 

R 

050160 

A 


DAC 

Q , X 

2641 






.ENDC 


2642 

02273 

R 

205272 

R 


LAC 

KEYCHK 

2643 

02274 

R 

050161 

A 


DAC 

0+1 ,X 

2644 

02275 

P 

205242 

R 


LAC 

GFTKEY 

2645 

02276 

R 

050162 

A 


DAC 

0 + 2, X 

2646 

02277 

R 

207021 

R 


LAC 

TSTR 

2647 

02 300 

R 

050163 

A 


DAC 

Q + 3 , X 

2648 

02301 

R 

200270 

R 


LAC 

GSYM 

2649 

02302 

R 

050164 

A 


DAC 

0 + 4, X 

2650 

02303 

R 

200272 

R 


LAC 

GLOBAL 

2651 

02304 

R 

050165 

A 


DAC 

0 + 5, X 

2652 

02305 

R 

204357 

R 


LAC 

PLACl 

2653 

02306 

R 

050166 

A 


DAC 

Q + 6 , X 

2654 



000156 

A 

0 = 3 + 5 



2655 






.IFPNZ 

MODIFY 

2656 



000167 

A 

0 = 3 + 1 




/♦12JAH17* 

/* 1 2 JAHi 7* 
/*12JAH17* 

/* 1 2 JAHI 7* 
/*12JAH17* 

/* 1 2 JAH 1 7 * 

/* 1 2 JAHI 7* 
/*12JAH17* 
/*12JAH17* 

/* 1 2 JAH 1 7 * 
/*12JAH17* 

/ * 1 2 JAH 1 7 * 

/*1 2JAH1 7* 
/♦12JAH17* 

/$ 1 2 JAHI 7 * 

/* 1 2 JAHI 7 * 

/* 1 2 JAHI 7* 

/* 1 2 JAHI 7 * 
/*12JAH17* 

/* 1 2 JAHI 7* 

/* 1 2 JAHI 7 * 

/* 1 2 JAH 1 7 * 

/♦I 2 JAHI 7* 

/* 1 2 JAHI 7* 

/*1 2JAH1 7* 

/* 1 2 JAHI 7* 

/* 1 2 JAH 1 7 * 

/♦I 2 JAHI 7 * 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 

/*12JAH17* 

/* 1 2 J AH 1 7 * 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 

/* 1 2 JAHI 7* 

/* 1 2 JAHI 7* 
/♦12JAH17* 

/* 1 2 JAH 1 7 * 
/M2JAH17* 
/*12JAH17* 

/♦I 2 JAHI 7* 

/* 1 2 JAHI 7 * 
/*12JAH17* 

/* 1 2 JAHI 7* 
/*12JAH17* 

/*12 JAHI 7* 

/*1 2JAH17* 

/* 1 2 JAH 1 7 * 
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2657 

02307 

R 

204616 

R 

LAC 

SR MOD 

2658 

0231 0 

R 

050167 

A 

0 AC 

Q,X 

2659 

0 2 31 1 

R 

204573 

R 

LAC 

MBUF2 

2660 

02312 

R 

050170 

A 

0 AC 

Q 4* 1 , X 

2661. 



000170 

A 

q=q+i 


2662 





-JENO-C — 

— — — 

2663 

8 0231 3 

o 

210005 

R 

LAC ^ 


2664 

0231 4 

R 

050171 

A 


j 

2665 

0231 5 

R 

220274 

R 

^>LAC* 

PTEMpx 

266 6 

02316 

R 

050172 

A 

DAC 

Q + 2,X 

2667 

02317 

R 

220276 

R 

LAC* 

PRDCMTX 

266 8 

02320 

R 

050173 

n 

A 

DAC 

Q + 3 • X -i 

2669 

02321 

R 

220275 

R 

LAC* 

PBOOLX 7 

2670 

02322 

R 

050174 

A 

D'AC 

Q+4 , X > 

2671 





.EBREL 

? EBA ; 


02323 

R 

707764 

A 

i — — f 


2672 

02324 

R 

140661 

R 

DZiM 

MQN IT 

2673 

02325 

R 

140660 

R 

DZM 

PRTIN 

2674 

02326 

R 

621725 

R 

JMP* 

SWPOHT 

2675 





, EJECT 






/*12JAH17* 
/* 1 2 JAR1 7* 
/ * 1 2 JAH 1 7* 
/* 1 2 JAH 1 7 * 
/* l 2 JAH1 7* 
/* 1 2 JAH1 7 s ? 
/♦12JAH17* 
/♦12JAH17* 
/* 1 2 JAH 1 7 * 
/* 1 2 JAH1 7* 
/* 1 2 JAH1 7* 
/*12JAH17* 
/♦I 2 JAH1 7* 
/*1 2 JAH1 7* 
/* 1 2 JAH1 7* 
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2676 





/SWAP Ift 

\ NEW USER 


2677 

02327 

o 

740040 

A 

SWPIN 

XX 



2678 

02 3 30 

8 

200654 

R 


LAC 

PRTNMB 


2679 

02331 

R 

040657 

R 


DAC 

P.RTIDX 


2680 

02332 

R 

040660 

R 


DAC 

PRTIM 


2681 

02333 

R 

313676 

R 


ADD 

C -ST AT 1 


2682 

023 34 

R 

040655 

ft 


DAC 

RUN N MR 

/SET PARTITION NO. NOW RUNNING. 

268 3 

02335 

R 

213677 

R 


[■AC 

(SYMR0T 


2684 

02336 

R 

04001 7 

A 


DAC 

R 1 7 


2695 

02337 

R 

777763 

A 


LAW 

-SYSVAR 


2686 

02340 

R 

040020 

A 


DAC 

R20 

/LENGTH OF SYST. VARIABLE LIST 

2687 

02341 

R 

200657 

R 


LAC 

PRTIDX 


2689 

02342 

P 

353676 

R 


TAD 

( -ST AT 1 


2699 

02343 

R 

040155 

R 


DAC 

PC 

/TEMP SAVE PART. # -i 

2690 

02344 

R 

353700 

R 


TAD 

( 1NDTA8 


2691 

02345 

R 

040156 

R 


DAC 

AC 


2692 

02346 

R 

220156 

R 


LAC* 

AC 

/PART. START. ADDR, 

2693 

02347 

R 

723777 

A 


AAC 

-1 


2694 

02350 

R 

040661 

R 


DAC 

MON IT 

/SAVE FOR SWAP OUT AND SET GARB SWITCH 

2695 

02351 

R 

721000 

A 


PAX 



2696 





/ 




2697 





/COMPUTE SYSTEM 

PARAMETERS FOR 

THIS PARTITION. 

2698 





/ 




2699 

02352 

R 

313701 

R 


ADD 

(SWAPSZ+1 


2700 

02353 

R 

040704 

R 


DAC 

DSK8FT 

/ADDRESS OF DISK BUFFER 

2701 

02354 

R 

740030 

A 


I AC 



2702 

02355 

R 

040705 

R 


DAC 

GBWD2 

/"GLOBAL BUFFER WORD 2" 

2703 

02356 

R 

313702 

R 


ADD 

( BLOCK- 1 


2704 

02357 

R 

040132 

R 


DAC 

8UFF1 

/ADDRESS OF DIRECT COMMAND BUFFER 

2705 

02360 

R 

313703 

R 


ADD 

(COMBUFF 


2706 

02361 

R 

040133 

R 


DAC 

BUFF2 

/ADDRESS OF STRING ACCUMULATOR 

2707 

02362 

R 

313703 

R 


ADD 

(STRACC 


2708 

0236 3 

R 

0401 34 

R 


DAC 

RUFF 

/START OF PROGRAM BUFFER 

2709 

02364 

R 

340277 

R 


TAD 

USABLE 


2710 

02365 

R 

040135 

R 


DAC 

SYMBOT 

/ADDRESS OF BOTTOM OF USER DEFINED 

2711 








/SYMBOL TABLE (EXCLUSIVE OF PERMANENT 

2712 








/SYMBOLS) 

2713 

02366 

R 

200155 

R 


LAC 

PC 

/PART. # -1 

2714 

02367 

R 

354142 

E 


TAD 

PASTAR 


2715 

02370 

R 

040155 

R 


DAC 

PC 


2716 

02371 

R 

220155 

R 


LAC* 

PC 

/PART. SIZE 

2717 

0 2 37 2 

R 

340135 

R 


TAD 

SY-MBOT 


2718 

02373 

R 

0401 35 

R 


DAC 

SYMBOT 


2719 

02374 

R 

313704 

R 


ADD 

(4 

/4 CELLS FOR DATE 

2720 

02375 

R 

313705 

R 

SWPIN4 

ADD 

(2 

/SETUP SYSTEM VARIABLES 

2 721 

02376 

R 

060017 

A 


DAC* 

R 1 7 


2722 

02377 

R 

440020 

A 


1SZ 

R20 

/-SYSVAR PREVIOUSLY PLACED IN R20 

2723 

02400 

R 

602375 

p 


JMP 

SWPIN4 


2724 

02401 

R 

740030 

A 


I AC 



2725 

0 2 4 0 2 

R 

040153 

R 


DAC 

SYMEND 

/PRTBEG+PRTSIZE-2 

2726 

02403 

R 

740030 

A 


I AC 



2727 

02404 

R 

040154 

R 


DAC 

PR TEND 

/PRTBEG+PRTSIZS-1 


. i0f.ec 


oe») 

•Dt3e*L 
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2729 





/SWAP 

IN SWAPPING IMAGE. 


2729 





/ 




2 7 90 






. D8REL 

? DBA 

/*12JAH17* 


02405 

R 

707762 

A 





27 31 

02406 

R 

210001 

A 


LAC 

t,X 

/♦12JAH17* 

2732 

02407 

R 

040155 

R 


DAC 

PC 


2733 

02410 

R 

210002 

A 


LAC 

2 , X 

/*12JAH17* 

2734 

0 241 1 

Q 

r\ 

040156 

R 


0 AC 

AC 


27 35 

02412 

R 

210003 

A 


LAC 

3 , X 

/*12JAH17* 

2736 

0241 3 

R 

040157 

R 


DAC 

MQ 


2737 

02414 

R 

210004 

A 


LAC 

4.X 

/* 1 2 JAH1 7* 

2738 

0241 5 

R 

040160 

R 


DAC 

XR 


2739 

02416 

R 

210005 

A 


LAC 

5 , X 

/♦12JAH17* 

2740 

0241 7 

R 

040161 

R 


DAC 

LR 


2741 

02420 

R 

210006 

A 


LAC 

6.X 

/M2JAH17* 

2742 

02421 

R 

040010 

A 


DAC 

RIO 


274 3 

02422 

R 

210007 

A 


LAC 

7.X 

/*12JAH17* 

2744 

02423 

R 

040013 

A 


DAC 

R 1 3 


2745 

02424 

R. 

210010 

A 


LAC 

10, X 

/M2JAH17* 

2 74 6 

02425 

R 

040014 

A 


DAC 

R 1 4 


2747 

02426 

R 

210011 

A 


LAC 

11 ,x 

/* 12 JAH1 7 : 

27 48 

02427 

R 

040015 

A 


DAC 

R 1 5 


2749 

02430 

R 

210012 

A 


LAC 

12.X 

/*12JAH17* 

2750 

02431 

R 

040016 

A 


DAC 

R16 


2751 

02432 

H 

210013 

A 


LAC 

13.X 

/*12JAH17* 

2752 

02433 

R 

040017 

A 


DAC 

R17 


2753 

02434 

R 

21001.4 

A 


LAC 

14, X 

/*12JAH17* 

2754 

02435 

R 

040020 

A 


DAC 

R20 


2755 

02436 

R 

210015 

A 


LAC 

15.X 

/* 1 2 JAH1 7* 

2756 

02437 

R 

040162 

R 


DAC 

PRNCPV 

/*12JAH17* 

2757 

02440 

R 

2 1 00 1 o 

A 


LAC 

16.X 

/* 1 2 JAH 1 7* 

2758 

02441 

R 

040163 

R. 


DAC 

INPUT 

/* 1 2 JAH1 7* 

2759 

02442 

R 

210017 

A 


LAC 

17.X 

/ * 1 2 JAH1 7* 

2760 

02443 

R 

040164 

R 


DAC 

OUTPUT 

/* 1 2 JAH1 7* 

2761 

02444 

R 

210020 

A 


LAC 

20.X 

/♦I 2JAB1 7* 

2762 

02445 

R 

040165 

R 


DAC 

STACK 

/* 1 2 JAH1 7* 

2763 

02446 

R 

210021 

A 


LAC 

21 ,X 

/ * 1 2 JAH1 7 * 

2764 

02447 

R 

040166 

R 


DAC 

SPOINT 

/* 1 2 JAH1 7 * 

2765 

02450 

R 

210022 

A 


LAC 

22, X 

/*12JAH17* 

2766 

02451 

R 

040167 

R 


DAC 

END 

/♦I 2 JAH1 7* 

2767 

02452 

R 

210023 

A 


LAC 

23, X 

/*12JAH17* 

2769 

02453 

R 

040170 

R 


DAC 

SYiMBEG 

/*12JAH17* 

2769 

02454 

R 

210024 

A 


LAC 

24, X 

/*12 JAH17* 

2770 

02455 

R 

040171 

R 


DAC 

OBPNT 

/* 1 2 JAH1 7* 

2771 

02456 

R 

210025 

A 


LAC 

25, X 

/*12JAH17* 

2772 

02457 

R 

040172 

R 


DAC 

WRTSw 

/*1 2 JAH1 7* 

277 3 

02460 

R 

210026 

A 


LAC 

26, X 

/* 1 2 JAH1 7* 

2774 

02461 

R 

040173 

R 


DAC 

SWPCNT 

/* 12JAH17* 

2775 

02462 

R 

210027 

A 


LAC 

27, X 

/*12JAH17* 

2776 

02463 

R 

040174 

R 


DAC 

CLKCNT 

/* 1 2 JAH1 7* 

2777 

02464 

R 

210030 

A 


LAC 

30, X 

/* 1 2 J AH 1 7* 

2779 

02465 

R 

040175 

R 


DAC 

WRTCNT 

/*12JAH17* 
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2779 

02466 

R 

210031 

A 


LAC 

31 ,X 

/* 1 2 JAH1 7 * 

2780 

02467 

R 

040176 

R 


DAC 

RDCNT 

/* 1 2 JAH 1 7* 

2781 

02470 

R 

210032 

A 


LAC 

32, X 

/*12JAH17* 

2782 

02471 

R 

040177 

R 


DAC 

SYM 

/*12JAH17* 

2783 

02472 

R 

210033 

A 


LAC 

33, X 

/♦12JAH17: 

2784 

02473 

R 

040200 

R 


DAC 

SCRIP 

/* 1 2 JAH1 7 * 

2785 

0 2 474 

R 

210034 

A 


LAC 

34, X 

/M2JAH17; 

2736 

02475 

R 

040201 

R 


DAC 

SAVPRD 

/*12JAH17* 

2787 

0247b 

R 

210035 

A 


LAC 

35, X 

/*1 2 JAH1 7* 

2788 

02477 

R 

040202 

R 


DAC 

TEMP 

/*1 2JAH1 7* 

2789 

02500 

R 

210036 

A 


LAC 

36, X 

/♦12JAH17* 

2790 

02501 

R 

040203 



DAC 

FQRTST 

/* 1 2 JAHi 7* 

2791 

02502 

R 

210037 

A 


LAC 

37, X 

/♦12JAH17* 

2792 

02503 

P 

040204 

R 


DAC 

S VMS 

/*12JAH17* 

2793 

02504 

R 

210040 

A 


LAC 

40, X 

/* 1 2 JAH1 7* 

2794 

02505 

R 

040205 

R 


DAC 

SCRIPS 

/* 1 2 JAH1 7* 

2795 

02506 

R 

210041 

A 


LAC 

41 ,X 

/*12JAH17* 

2796 

02 507 

R 

040206 

R 


DAC 

LOC 

/*12JAH17* 

2797 

02510 

R 

210042 

A 


LAC 

42, X 

/*12JAH17* 

2798 

0251 1 

R 

040207 

K 


DAC 

VAL 

/* 1 2JAH1 7+ 

2799 



000042 

A 

o 

ii 

CO 



/* 1 2 JAH1 7 * 

2800 






.IFPNZ 

MONEY 

/* 1 2 JAH1 7* 

2801 



000043 

A 

Q = Q + 1 



/* 1 2 JAH1 7 * 

2802 

0251 2 

R 

210043 

A 


LAC 

Q,X 

/*12JAH17* 

2803 

0251 3 

R 

040210 

R 


DAC 

MONYSW 

/* 1 2JAH1 7* 

2804 






„ ENDC 


/* 1 2 JAH 1 7* 

2805 






.IFPNZ 

FMONEY 

/♦I 2JAH1 7* 

2806 



000044 

A 

Q = Q + 1 



/* 1 2 JAH1 7* 

2 807 

02514 

R 

210044 

A 


LAC 

Q , X 

/*12JAH17* 

2808 

02515 

R 

040211 

R 


DAC 

VALF 

/* 1 2 JAH1 7* 

2809 



000045 

A 

Q = Q+1 



/* 1 2 JAH1 7* 

2810 

0251 6 

R 

210045 

A 


LAC 

Q , X 

/+ 1 2 JAH 17* 

2811 

02517 

R 

040212 

R 


DAC 

FLOAT 

/*12JAH17* 

2812 






.ENDC 


/*12JAH1 7* 

2813 

02520 

R 

210046 

A 


LAC 

0+1 ,x 

/*12JAH17* 

2814 

02521 

R 

040213 

R 


DAC 

OFLAG 

/* 1 2 JAH 17* 

2815 

02522 

R 

210047 

A 


LAC 

Q + 2 , X 

/*12JAH17* 

2816 

02523 

R 

040214 

R 


DAC 

M 

/*12JAH17* 

2817 

02524 

R 

210050 

A 


LAC 

0 + 3, X 

/* 1 2 JAH1 7* 

2818 

02525 

R 

040215 

R 


DAC 

SUM 

/♦12JAH17* 

2819 

02526 

R 

210051 

A 


LAC 

Q + 4 , X 

/* 1 2 JAH1 7* 

2820 

02527 

R 

04021b 

R 


DAC 

TERM 

/*12JAH17* 

2821 

02530 

R 

210052 

A 


LAC 

0 + 5, X 

/* 1 2 JAH1 7* 

2822 

02531 

R 

040217 

R 


DAC 

ACTEMP 

/* 1 2 JAH 1 7* 

2823 

02532 

R 

210053 

A 


LAC 

0+6, X 

/♦12JAH17* 

2824 

02533 

R 

040220 

R 


DAC 

IPOINT 

/* 1 2 JAH 1 7 * 

2825 

025 34 

R 

210054 

A 


LAC 

Q + 7 , X 

/*12JAH17* 

2826 

025 35 

R 

040221 

R 


DAC 

I PLACE 

/* 1 2 JAH1 7* 

2827 

02536 

R 

210055 

A 


LAC 

Q+10.X 

/* 1 2 JAH 1 7 * 

2828 

02537 

R 

040222 

R 


DAC 

□POINT 

/* 1 2JAH1 7* 

2829 

02540 

R 

210056 

A 


LAC 

Q + l 1 , X 

/* 1 2 JAH1 7* 

28 30 

02541 

R 

040223 

R 


DAC 

□PLACE 

/* 1 2 JAH1 7* 
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MQMITQR 


2 B 3 i 

02542 

R 

210057 

A 

LAC 

Q + 1 2 , X 

2832 

02543 

R 

040224 

R 

DAC 

TEMPI 

2833 

02544 

R 

210060 

A 

LAC 

Q+13,X 

2934 

02545 

R 

040225 

R 

DAC 

POINT! 

2835 

02546 

R 

210061 

A 

LAC 

Q + 1 4 , X 

2836 

02547 

R 

040226 

R 

DAC 

PLACE1 

2837 

02550 

R 

210062 

A 

LAC 

Q + 1 5 , X 

2838 

02551 

R 

040227 

R 

DAC 

TEMP? 

2839 

02552 

R 

210063 

A 

LAC 

Q+16,X 

2 8 40 

02553 

R 

040230 

R 

DAC 

point? 

2841 

02554 

R 

210064 

A 

LAC 

Q+17 ,X 

284? 

02555 

R 

040231 

R 

DAC 

PLACE? 

2943 

02556 

R 

210065 

A 

LAC 

Q+20,X 

2844 

02557 

R 

040232 

R 

OAC 

BSUM 

2845 

02560 

R 

210066 

A 

LAC 

0 + 21 , X 

2846 

02561 

R 

040233 

R 

DAC 

BTERM 

2847 

02562 

R 

210067 

A 

LAC 

Q + 22 ,X 

2848 

02563 

R 

040234 

R 

DAC 

BVAL 

2849 

02564 

R 

210070 

A 

LAC 

Q+23.X 

2950 

02565 

R 

040235 

R 

DAC 

FORFAR 

2851 

02566 

R 

210071 

A 

LAC 

3 + ? 4 , X 

285? 

02567 

R 

040236 

R 

DAC 

PROG 

2853 

025 7 0 

R 

210072 

A 

LAC 

Q+25,X 

2954 

02571 

R 

040237 

R 

DAC 

POSER 

2855 

02572 

R 

210073 

A 

LAC 

3 + 26 , X 

2856 

02573 

0 

040240 

R 

DAC 

ID 

2857 

02574 

R 

210074 

A 

LAC 

3+27, X 

2858 

02575 

R 

040241 

R 

DAC 

USER 

2359 

02576 

R 

210075 

A 

LAC 

3+30, X 

2860 

02577 

R 

040242 

R 

DAC 

3KCHAR 

2861 

02600 

R 

210076 

A 

LAC 

3+31 ,X 

2862 

02601 

R 

040243 

R 

DAC 

T 1 

2863 

0 260 2 

R 

21 007 1 

A 

LAC 

3 + 32 , X 

2864 

02603 

R 

040244 

R 

DAC 

T2 

2865 

02604 

R 

210100 

A 

LAC 

Q+ 33 , X 

2866 

02605 

R 

040245 

R 

DAC 

T 3 

2867 

02606 

R 

210101 

A 

LAC 

Q + 34 ,X 

2868 

0 26 0 7 

R 

040246 

R 

DAC 

IFSWT 

2869 

02610 

R 

210102 

A 

LAC 

3+35, X 

2870 

0261 1 

R 

040247 

R 

DAC 

GUN IT 

2871 

0261 7 

R 

210103 

A 

LAC 

Q+36 , X 

287? 

0261 3 

R 

040250 

R. 

DAC 

SUN IT 

287 3 

0261 4 

R 

210104 

A 

LAC 

Q + 3 7 , X 

2874 

0261 5 

R 

040251 

R 

OAC 

gblkhi 

2875 

0261 6 

R 

210105 

A 

LAC 

Q + 40 , X 

2876 

02617 

8 

040252 

R 

DAC 

GHI 

2877 

0 2 6 2 0 

R 

210106 

A 

LAC 

3+41 ,X 

297 9 

0P621 

» 

040253 

R 

OAC 

GHEAD 

2879 

02622 

R 

210107 

A 

LAC 

Q + 4 2 , X 

2880 

02623 

R 

040254 

R 

DAC 

gsymbol 

2881 

02624 

R 

210110 

A 

LAC 

Q + 4 3 , X 

2982 

02625 

R 

040255 

R 

DAC 

GHDOLD 
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/♦I 2JAH1 7* 
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/*12JAH17* 
/* 1 2 JAHI 7 * 
/* 1 2 JAHI 7* 
/♦I 2 JAHi 7* 
/*12JAH17* 
/*12JAH17* 
/* 1 2 JAHI 7# 
/♦I 2JAH1 7* 
/*12JAH17* 
/*12JAH17* 
/* 1 2 JAHI 7Z* 
/* 1 2 JAHI 7 * 
/* 12 JAHI 7* 
/*1 2 JAHt 7* 
/♦ 1 2 JAHI 7* 
/* 1 2 JAHI 7* 
/*12JAH17* 

/* 1 2 JAH 1 7* 
/* 1 2 JAHfl 7* 
/* 1 2 JAHI 7* 
/* 1 2 JAHI 7* 
/* 1 2 JAHI 7* 
/* 1 2 JAH 1 7 * 
/♦12JAHJ 7* 
/♦12JAH17* 
/*12JAH17* 
/* 1 2 JAHI 7* 
/* 1 2 JAHI 7 * 
/*12JAH17* 
/* 1 2 JAHI 7 * 
/* 1 2JAH1 7* 
/*1 2JAH1 7* 
/* 1 2 JAHI 7* 
/* 1 2 JAHI 7* 
/♦12JAH17* 
/* 1 2 JAHI 7* 

/*12JAH17* 
/* 1 2 JAHI 7* 
/*12JAH17* 
/*12JAH17* 

/ * 1 2 JAHI 7 * 
/* 1 2 JAH 1 7 * 

/ * 1 2 JAH 1 7* 
/* 1 2JAH1 7* 
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2883 

02626 

R 

210111 

A 

LAC 

Q + 4 4 , X 

/*12JAH17* 

2884 

02627 

R 

047041 

p 

0 AC 

WRPART 

/*1 2JAH1 7* 

2885 

02530 

R 

210112 

A 

LAC 

0 + 45 , X 

/* 1 2 JAH1 7* 

2886 

02631 

R 

046621 

R 

DAC 

CONT 


2887 

02632 

R 

210113 

A 

LAC 

Q+46 , X 

/ * 1 2 J AH 1 7* 

2888 

02633 

R 

046203 

R 

0 AC 

80 QL 

/* 1 2 JAH 1 7* 

2889 

02534 

R 

210114 

A 

LAC 

0 + 47 # X 

/+12JAH17* 

2890 

02635 

R 

040256 

R 

DAC 

BOOLL 

/* 1 2 JAH1 7* 

2891 

02636 

R 

210115 

A 

LAC 

Q+50.X 

/ * 1 2 J AH1 7 * 

2892 

02637 

R 

040260 

R 

DAC 

8Q0LE 

/*12JAH17* 

2893 

02640 

p 

210116 

A 

LAC 

3 + 51 ,X 

/+12JAH17* 

2894 

02641 

r> 

r\ 

040262 

R 

DAC 

BOQLG 

/* 1 2 JAH1 7# 

2«95 

02642 

R 

210117 

A 

LAC 

0 + 52 , X 

/*12JAH17* 

2896 

02643 

R 

044770 

R 

DAC 

CHARI 

/*12JAH17* 

2897 

02644 

R 

210120 

A 

LAC 

Q + 5 3 , X 

/*! 2JAH1 7+ 

2898 

02645 

R 

045014 

R 

DAC 

CHAR 2 

/* 1 2 JAH1 7+ 

2899 

02646 

R 

210121 

A 

LAC 

Q + 5 4 , X 

/*12JAH17* 

2900 

02647 

R 

045201 

R 

0 AC 

CHECK 

/+12JAH17* 

2901 

02650 

R 

210122 

A 

LAC 

Q+55 , X 

/* 1 2 JAH 1 7 * 

2902 

02651 

R 

043535 

R 

DAC 

DISPAT 

/* 1 2 JAH1 7 * 

2903 

02652 

p 

210123 

A 

LAC 

3 + 56 , X 

/* 1 2 J AH1 7* 

2904 

02653 

R 

040264 

R 

DAC 

0 1 SLOP 

/M2JAH17* 

2905 

02654 

R 

210124 

A 

LAC 

Q+57.X 

/*12JAH17* 

2906 

02655 

R 

043641 

R 

DAC 

PRODA 

/* 1 2 JAH1 7 * 

2907 

02656 

R 

210125 

A 

LAC 

0+60. X 

/*12JAH17* 

2908 

02657 

R 

044340 

R 

DAC 

PLACE 

/* 1 2 JAH 1 7 * 

2909 

02660 

R 

210126 

A 

LAC 

3 + 61 , X 

/*12JAH17* 

2910 

02661 

R 

044645 

R 

DAC 

CICHAR 

/*12JAH17* 

291 1 

02662 

R 

210127 

A 

LAC 

Q + 62 , X 

/*12JAH17* 

2912 

02663 

R 

044660 

R 

DAC 

□CHARI 

/*12JAH17* 

291 3 

02664 

R 

210130 

A 

LAC 

Q + 63 , X 

/ * 1 2 JAH 1 7 * 

291 4 

02665 

R 

044710 

R 

DAC 

SUBOPT 

/*12JAH17* 

2915 

02666 

R 

210131 

A 

LAC 

Q + 6 4 , X 

/+12JAH17* 

2916 

02667 

R 

045040 

R 

DAC 

SAVE 

/*1 2JAH1 7* 

2917 

02670 

R 

210132 

A 

LAC 

3 + 65 , X 

/+12JAH17* 

2918 

0 25 71. 

R 

045103 

R 

DAC 

UNSAVE 

/+12JAH17* 

2919 

02672 

R 

210133 

A 

LAC 

Q+66 , X 

/* 1 2 JAH 1 7 * 

2920 

02673 

R 

045123 

R 

DAC 

STEP 

/+12JAH17* 

2921 

02674 

R 

210134 

A 

LAC 

0+67 , X 

/*12JAH17* 

2922 

02675 

R 

045151 

R 

DAC 

P4RT 

/+12JAH17* 

2923 

02676 

R 

210135 

A 

LAC 

Q + 7 0 , X 

/*12JAH17* 

2924 

02677 

R 

047163 

R 

DAC 

EVAL 

/# 1 2 JAH1 7 * 

2925 

02700 

R 

210136 

A 

LAC 

3+71 ,X 

/+12JAH17* 

2925 

02701 

R 

045434 

R 

DAC 

SYMBOL 

1 2 JAH1 7 * 

2927 

02702 

R 

210137 

A 

LAC 

Q+72.X 

/* 1 2 JAH1 7* 

2928 

02703 

R 

043724 

R 

DAC 

SYNTAX 

/* 1 2 JAH1 7* 

2929 

02704 

R 

210140 

A 

LAC 

0 + 7 3 , X 

1 2 JAH1 7* 

2930 

02705 

R 

043744 

R 

DAC 

STOR1 

/*12JAH17* 

2931 

02706 

R 

210141 

A 

LAC 

3 + 74, X 

/* 1 2 JAH1 7* 

2932 

02707 

R 

044034 

R 

DAC 

ST0R2 

/* 1 2 JAH 1 7 * 

2933 

0271 0 

R 

210142 

A 

LAC 

Q+75.X 

/♦I 2JAH1 7* 

2934 

0271 1 

R 

044103 

R 

DAC 

DEC IN 

/* 1 2 JAH1 7* 
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2935 

027 1 2 

r* 

i*4 

210143 

a 


LAC 

0 + 7 6 , X 

/♦12JAH17* 

2936 

0271 3 

R 

044255 

R 


DAC 

DECOCT 

/* 1 2 JAH1 7* 

2937 

02714 

R 

210144 

a 


LAC 

Q + 7 7 , X 

/*12JAH17* 

2938 

02715 

R 

044320 

R 


0 AC 

OCTQUT 

/ * 1 2 JAH 1 7 * 

2939 

02716 

R 

210145 

A 


LAC 

Q+100,X 

/*12JAH17* 

2940 

0271 7 

R 

046673 

R 


DAC 

FORMAT 

/ * 1 2 JAH 1 7 * 

2941 

027 20 

R 

210146 

A 


LAC 

Q+101 ,X 

/* 1 2 JAH1 7 * 

2942 

02721 

R 

045304 

R 


DAC 

ASSEM 

/* 1 2 J AH 1 7 : 

294 3 

02722 

R 

210147 

A 


LAC 

0+1 02.X 

/M2JAH17* 

2944 

02723 

R 

040266 

R 


DAC 

GASS 

1 2 JAH1 7* 

2945 

02724 

R 

210150 

A 


LAC 

0 + 103, X 

/* 1 2 JAH1 7* 

2946 

02725 

R 

043174 

R 


DAC 

OUT 

/ * t 2 J A H 1 7 : 

2947 

02726 

R 

210151 

A 


LAC 

Q + 104.X 

/* 1 2 JAH1 7* 

2948 

02727 

R 

044725 

R 


DAC 

ICHARI 

/* 3 2 JAHi 7 : 

2949 

02730 

R 

210152 

A 


LAC 

Q + 105.X 

/* 1 2 JAH1 7 : 

2950 

02731 

R 

044235 

R 


DAC 

DEC 2 

/* 1 2 JAH1 7 : 

2951 

02732 

R 

210153 

A 


LAC 

0+106, X 

/*12JAH17* 

2952 

02733 

R 

043325 

R 


DAC 

PACKEM 

/* 1 2 JAH1 7 : 

2953 

02734 

R 

210154 

A 


LAC 

Q + 107.X 

/* 1 2 JAH1 7* 

2954 

02735 

R 

047066 

R 


DAC 

wRSTEP 

/*! 2JAH1 7 ; 

2955 

02736 

R 

210155 

A 


LAC 

Q+UO, X 

/M2JAH17* 

2956 

02737 

R 

043712 

R 


DAC 

QTEXT 

/* 12JAH1 7 : 

2957 

02740 

R 

210156 

A 


LAC 

0 + 111 ,X 

/+12JAH17* 

2958 

02743 

R 

045363 

R 


DAC 

S7E 

/ * 1 2 JAH1 7 * 

2959 

02742 

R 

210157 

A 


LAC 

Q + 1 1 2 , X 

/* 1 2 JAH1 7 * 

2960 

02743 

$ 

047107 

R 


DAC 

SETIO 

/* 1 2 JAH1 7 * 

2961 



000157 

A 

Q = Q + 1 1 2 



/* 1 2 JAH1 7 * 

2962 






. I F P N Z 

DTA 

/+12JAH17* 

2963 



000160 

A 

Q=0 + 1 



/*12JAH17* 

2964 

02744 

R 

210160 

A 


LAC 

Q , X 

/* 1 2 JAH1 7* 

2965 

02745 

R 

043701 

R 


DAC 

LOKDT 

/* 1 2 JAH1 7* 

2966 






.ENDC 


/+12JAH17* 

2967 

02746 

R 

210161 

A 


LAC 

0 + 1 , X 

/* 1 2 J AH 1 7* 

2968 

02747 

R 

045272 

R 


DAC 

KFYCHK 

/*12JAH17* 

2969 

02750 

R 

210162 

A 


LAC 

Q + 2 , X 

/* 1 2 JAH1 7* 

2970 

02751 

R 

045242 

R 


DAC 

GETKEY 

/* 1 2 JAH1 7* 

2971 

02752 

R 

210163 

A 


LAC 

0 + 3 , X 

/* 1 2 JAH1 7* 

2972 

02753 

R 

047021 

R 


DAC 

TSTR 

/¥ 1 2 JAH1 7* 

297 3 

02754 

R 

210164 

A 


LAC 

0 + 4, X 

/* 1 2 JAH1 7* 

2974 

02755 

R 

040270 

P 


DAC 

GSYM 

/*! 2JAH17* 

2975 

02756 

R 

210165 

A 


LAC 

0 + 5 , X 

/ * 1 2 JAH1 7 * 

2976 

02757 

-'V 

rv 

040272 

R 


DAC 

GLOBAL 

/*12JAH17* 

2977 

02760 

R 

210166 

A 


LAC 

Q + 6, X 

/* 1 2 JAH 1 7 * 

297« 

02761 

R 

044357 

R 


DAC 

P L AC 1 

/*12JAH17* 

2979 



000166 

A 

0 = 0+6 



/*12JAH17* 

29 8 0 






. JFPNZ 

MODIFY 

/ * 1 2 JAH 1 7 * 

2981 



000167 

A 

0 = 0+1 



/*12JAH17* 

2982 

02762 

R 

210167 

A 


LAC 

Q , X 

/*12JAH17* 

2983 

02763 

R 

044616 

R 


DAC 

ERMOD 

/*12JAH17* 

2984 

02764 

R 

210170 

A 


LAC 

0 + 1 ,x 

/* 1 2 JAH1 7* 

2985 

02765 

R 

044573 

R 


DAC 

MRUF2 

/ * 1 2 J AH 1 7 * 

2986 



000170 

A 

Q = Q + 1 



/* 1 2 JAH 1 7 4 
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2987 

2988 


02766 

R 

210171 

A 

2989 

B 

02767 

R 

050005 

R 

2990 


02770 

R 

210172 

A 

2991 


02771 

R 

060274 

R 

2992 


02772 

R 

210173 

A 

299 8 


02778 

R 

060276 

R 

2994 


02774 

R 

210174 

A 

2995 


02775 

R 

060275 

R 

2996 


02776 

R 

707764 

A 

2997 

2999 


02777 

R 

622327 

R 
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/*I2JAH17* 

/*12JAH17* 

/ + 12JA.H17* 
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/* 12JAH17* 
/* 1 2 JAH1 7* 
/* 1 2 J AH 1 7 * 
/*12JAH1 7* 
/*12JAH17* 
/* 1 2 JAH1 7 * 
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2999 
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3001 
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003000 
03000 8 701742 


MONITOR 
R SWPIN3= 
A 



MPEU /ENTER 

. ENDC 


3003 

03001 

R 

200157 

R 


LAC 

MQ 

300 4 

03002 

R 

652000 

A 


LMQ 


3005 

03003 

R 

200160 

R 


LAC 

XR 

30 0 5 

03004 

R 

721000 

A 


PAX 


3007 

03005 

R 

200161 

R 


LAC 

LR 

3008 

03006 

R 

722000 

A 


PAL 


3009 

0 3 0 0 7 

R 

200721 

R 


LAC 

TIMESL 

3010 

0 3 010 

R 

040656 

R 

3 rv k ~ 

DAC 

rundown: 

3011. 

0301 1 

R 

750030 

A 


CLA! IAC 


3012 

03012 

R 

040652 

R 


DAC 

SWAPSW 

3013 

0301 3 

R 

440173 

R 


ISZ 

SWPCNT 

3014 

0301 4 

R 

740000 

A 


NOP 


3015 

0301 5 

R 

234047 

E 


LAC* 

CLOCK 

3016 

03016 

R 

060147 

R 


DAC* , 

T VAR 

3017 

0301 7 

P 

200136 

R 


LAC 

AVAR 

3018 

03020 

R 

353706 

R 


TAD 

(-5 

3019 

03021 

R 

04001 1 

A 


DAC 

R 1 1 

3020 

03022 

R 

234051 

E 


LAC* 

DATE 

3021 

03023 

R 

06001 1 

A 


DAC* 

Rll - 

3022 

03024 

R 

234052 

E 


LAC* 

D ATE. 1 

302 3 

03025 

R 

060011 

A 


DAC* 

Rll -- 

3024 

03026 

R 

234053 

E 


LAC* 

DATE. 2 

3025 

03027 

R 

060011 

A 


DAC* 

R1 1 

3026 

03030 

R 

220154 

R 


LAC* 

PR TEND 

3027 

03031, 

R 

741300 

A 


SPAiSNA 


3028 

03032 

R 

603040 

R 


JMP 

SWPINO 

3029 

03033 

R 

205103 

R. 


LAC 

UNSAVE 

30 30 

03034 

R 

040220 

R 


DAC 

I POINT 

30 31 

03035 

R 

160220 

R 


DZM* 

IPQINT 

3032 

03036 

R 

160144 

R 


QZM* 

W V A R 

3033 

03037 

R 

603434 

R 


JMP 

ALTMOD 

3034 

03040 

R 

200577 

R 

SWPINQ 

LAC 

QSKACT 

3035 

03041 

R 

540654 

R 


SAD 

prtnmb 

3036 

03042 

R 

603062 

R 


JMP 

5WP0K2 

3037 

03043 

R 

220654 

R 


LAC* 

prtnmb 

3038 

03044 

R 

513642 

R 


AND 

(40000 

3039 

03045 

R 

741200 

A 


SNA 


3040 

03046 

R 

603052 

R 


JMP 

SWPGK 

3041 

03047 

R 

260654 

R 


XOR * 

PRTNMB 

3042 

0 9050 

R 

060654 

R 


DAC* 

PRTNMB 

3043 

0 3051 

R 

000023 

A 


ERR 2 3 


3044 



003052 

R 

SWPOK=. 



3045 






. IFPNZ 

XVM 

3046 

03052 

R 

200020 

A 


LAC 

R20 

3047 

03053 

R 

040573 

R 


DAC 

KEEP20 

3 0 49 

03054 

R 

000000 

A 


CAL 


3049 

03055 

R 

200573 

R 

MEXEC 

LAC 

KEEP20 

3050 

03056 

R 

040020 

A 


DAC 

R20 


/* 1 2 J AH1 5* 
/*12JAH15* 

USER MODE /*12JAH15* 

/ * 1 2 JAH 1 5* 
/* 1 2 JAH1 5* 

/RESTORE MQ, 

/RESTORE X REG 

/RESTORE L REG 


/SET SLICE 
/MAKE SWAPPABLE 



/UPDATE TIME 


/UPDATE DATE 


/DID WE UNHANG BECAUSE OF %W VIOLATION 
/NO. 

/YES. RESET INPUT BUFFER POINTER 

/MAKE SURE IT INDICATES NULL STRING. 

/SET %W TO INDICATE OVERFLOW , 

/FAKE EOL (END OF LINE) 

/IS THIS USER IN MIDDLE 
/OF LOGICAL DISK ACTIVITY? 

/YES, INHIBIT IOINT.EMSR CLOSE TEMPORARILY 

/LOOK FOR 10 I NT 

/NO IQINT -- GO CONTINUE 
/CLEAR IOINT BIT 

/GIVE HIM THE IOINT 

/*12JAH15* 
/* 1 2 JAH1 5* 

/SAVE LOCATION 20 WHICH IS /*12JAH15* 

/DESTROYED BY CAL /*12JAH15* 

/GO INTO EXEC MODE /*12JAH15* 

/RESTORE LOCATION 20 /*12JAH15* 

/TO WHAT IT WAS BEFORE CAL /*12JAH15* 
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3051 







• ENDC 



/*1 2JAH1 5* 

3052 


03057 

p 

200570 

R 


LAC 

EM ERG 

/EMERGENCY CLOSE? 

/* 1 2 JAH1 5* 

3053 


03060 

R 

740200 

4 


SZA , 


/*1 2JAH10* (SWITCH 6) 


3054 


03061 

p 

603067 

R 


JNIP 

Stop I M2 

/YES . 


3055 


03062 

R 

203101. 

R 

„ SWPDK2 

LAC 

I OUT 

/NO, MAKE OUT PRINT 

/ * 1 2 JAH 1 7 * 

3056 


03063 

R 

043175 

R 


OAC 

OUT + 1 



3057 


03064 

R 

200156 

R 

SWP I N 1 

LAC 

AC 

/RESTORE AC 


305R 

-0 %' ~ 

03065 

R 

707742 

4 


RRS 


/RESTORE LINK, BANK/ PACE MODE 


3050 

O'- ^ 

03066 

R 

620155 

R 


JMP* 

PC 

/EXIT 


3060 






/ 





3061 


03067 

R 

213707 

R 

S to P I ft 2 

LAC 

(JMP* OUT 

/MAKE "OUT" NON-PRINTING SO NO 

OUTPUT HANGS 

3062 


03070 

R 

043175 

R 


OAC 

OUT + 1 



3063 







.IFPMZ 

XVM 


/* 1 2 JAH1 5* 

3064 


03071 

R 

701742 

A 


MPEU 

/ENTER 

USER mode 

/ * 1 2 JAH 1 5* 

3065 







. Eft DC 



/* 1 2 JAH1 5* 

3066 


03072 

R 

777777 

A 


LA to 

-1 

/t SEC CNTDQWN TO WATCHDOG FOR 


3067 


0 3073 

R 

060154 

R 


D AC* 

RRTEftD 

/NOISY D001S OR IDLE TERMINALS 


3068 


03074 

R 

220654 

R 


LAC* 

PRTNMR 



3069 


03075 

R 

513710 

R 


AND 

(1000 



3070 


0 3076 

R 

744200 

A 


SZAiCLL 


/IN HALTER? 

/* 1 2 JAH1 5* 

307 1 


03077 

R 

603064 

R 


JMR 

SWPIN1 

/YES 

/* 1 2 JAH1 5* 

307 2 


03100 

R 

6341 1 1 

E 


JMP* 

HALT 1 

/*! 2 JAH1 2* NO 


3073 


03101 

R 

513702 

R 

I OUT 

AMD 

(77 

/ 1 ST INST OF SUBR "OUT” 

/* 12JAH1 7* 



PAGE 8 3 

M [) M p < 

5 

100 

SLEEP HUNG 

PARTITION 

UPDATER 



3074 






• TITLE 

SLEEP HUNG 

PARTITION UPDATER 


3075 





/ 




/* 1 2 JAH1 7* 

3076 





/THIS ROUTINE CHECK EACH PARTITION TO SEE IF IT IS CLOCK 

/* 1 2 JAH 1 7 * 

3077 





/HUNG (BIT 16 OR 

' STATUS WORD SET) OR OCOl HUNG (BIT 15 OF 

/*12JAB.17* 

307 B 





/STATUS 

WORD SET) WITH NEGATIVE WATCHDOG COUNT. IT WILL. 

/* 1 2 JAH 1 7 * 

3079. 





/INCREMENT EITHER THE CLOCK 

HUNG WORD (NEXT TO LAST WORD 

/*12JAH17* 

30B0 





/OF PARTITION) OR %WATCHDQG 

COUNT (LAST WORD OF PARTITION) 

/*12JAH1 7* 

30B 1 





/AND OsN 

OVERFLOW 

REMOVE THE 

APPROPRIATE HANG BIT 

/*! 2JAH1 7* 

30B 2 





/ 





309 3 

03102 

R 

21 3665 

R 

SLPCHK 

LAC 

(STAT1 

/START OF PARTITION STATUS WORDS /*12JAH17* 

3084 

03103 

R 

040572 

R 

SLPCK1 

DAC 

slptmp 

/MOVE TO NEXT PARTITION /*12JAH17* 

3085 

03104 

R 

220572 

R 


LAC * 

SLPTMP 

/FETCH PARTITION STATUS WORD 

/* 1 2 JAHi 7* 

3086 

03105 

R 

742020 

A 


RTR 


/MOVE CLOCK HANG BIT TO LTMK 

/*12JAH17* 

3097 

03106 

R 

741420 

k 


SZL1RAR 


/CLOCK HUNG? MOVE %W BIT TO LINK /*12JAH17* 

3088 

03107 

R 

603117 

R 


JMP 

SLPHNG 

/YES, GO INCREMENT SYMEND 

/* 1 2 JAH 1 7* 

3089 

03110 

R 

741400 

A 


SZL 


/^WATCHDOG? 

/* 1 2 JAHI 7* 

3090 

0311 1 

R 

603134 

R 


JMP 

WATHNG 

/YES, GO INCREMENT PRTEND 

/* 1 2 JAHI 7* 

3091 

03112 

R 

200572 

R 

SLPCK2 

LAC 

SLPTMP 

/FETCH STATUS WORD PTR 

/* 1 2 JAHI 7* 

3092 

0311 3 

R 

740030 

A 


I AC 


/ADVANCE TO NEXT STATUS WORD 

/*12JAH!7* 

3093 

03114 

R 

540330 

R 


SAD 

ST ATX 

/END OF TABLE? /*12JAH17* 

3094 

03115 

R 

601562 

R 


JMP 

STACHO 

/YES 

/* 12 JAHi 7* 

3095 

03116 

R 

603103 

R 


JMP 

SLPCK1 

/NO, GO CHECK NEXT PARTITION 

/* 1 2 JAH 17* 

3096 

03117 

P 

103155 

R 

SLPHNG 

JMS 

SETPRT 

/SET UP PTR TO SYMEND 

/ * 1 2 JAH 1 7 * 

3097 

03120 

R 

200571 

R 


LAC 

SLPCNT 

/FETCH SECONDS SINCE LAST UPDATE/* 1 2 JAH1 7 * 

3098 

0 3121 

R 

350000 

A 


TAD 

o,x 

/BUMP HANG 

/* 1 2JAH1 7* 

3099 

0 312 2 

R 

050000 

A 


DAC 

o.x 

/TIME LOCATION 

/*12JAH17* 

3100 

03123 

R 

707764 

A 


EBA 


/NO MORE NEED OF XR 

/* 1 2 JAHI 7* 

3101 

03124 

R 

741100 

A 


SPA 


/HANG TIME OVERFLOW? 

/*12JAH17* 

3102 

031.25 

R 

603112 

R 


JMP 

SLPCK2 

/NO 

/ * 1 2 JAH 1 7 * 

310 3 

03126 

R 

777775 

A 


LAW 

17775 

/YES 

/* 1 2 JAHI 7* 

3104 

03127 

R 

705522 

A 


IN TOFF 


/ALTERING STATUS WORD 

/* 1 2 JAHI 7* 

3105 

03130 

R 

520572 

R 


AND* 

SLPTMP 

/CLEAR HANG TIME BIT 

/* 1 2 JAHI 7* 

3106 

0 3131 

R 

060572 

R 


DAC* 

SLPTMP 

/INSERT NEW STATUS WORD 

/* 1 2 JAHI 7 * 

3107 

03132 

R 

705521 

A 


INTON 


/DONE 

/* 1 2 J AH 1 7* 

3108 

03133 

R 

603112 

R 


JMP 

SLPCK2 

/GO CHECK NEXT PARTITION 

/*12JAH17* 

3109 

031 34 

R 

103155 

R 

WATHNG 

JMS 

SETPRT 

/SET UP PTR TO SYMEND 

/*12JAH17* 

3110 

031 35 

R 

210001 

A 


LAC 

1 .X 

/FETCH %w ATCHDQG RUNDOWN 

/* 1 2 J AH 1 7 * 

3111 

03136 

R 

740100 

A 


SMA 


/ ANY RUNDOWN 

/* 1 2 JAHI 7* 

3112 

031 37 

R 

603152 

R 


JMP 

NATH! 

/NO 

/* 1 2 JAH 1 7* 

3113 

0 31 40 

R 

340571 

R 


TAD 

SLPCNT 

/ADD SECONDS SINCE LAST UPDATE 

/*12JAH17* 

3114 

03141 

R 

050001 

A 


DAC 

1,X 

/UPDATE SYMEND IN PARTITION 

/* 1 2 JAHI 7* 

3115 

03142 

R 

751130 

A 


SPA1CLAI 

I AC 

/%W OVERFLOW? 

/* 1 2 JAH17* 

3 1 1 6 

0 314 3 

R 

603152 

R 


JMP 

NATH 1 

/NO 

/* 1 2 JAHI 7* 

3117 

0 3144 

R 

050001 

A 


DAC 

1 .X 

/YES, INSERT +1 TO SHOW OVERFLOW /*12JAH17* 

3119 

03145 

R 

203154 

R 


LAC 

N M ASK 

/SAVE I-MODE, IOINT, TRANS, RUN 

BITS /*! 2 JAHI 7 * 

3119 

03146 

R 

705522 

A 


INTOFF 


/ALTERING STATUS WORD 

/* 1 2 JAHI 7* 

3120 

03147 

R 

520572 

R 


AND* 

SLPTMP 

/CLEAR ALL HANG BITS 

/*12JAH17* 

3121 

03150 

R 

060572 

R 


DAC* 

SLPTMP 

/UPDATE STATUS WORD 

/* i 2 JAHI 7* 

3 1 2 2 

03151 

R 

705521 

A 


INTON 


/COME ALIVE AGAIN 

/* 1 2 JAHI 7* 

3123 

03152 

8 

707764 

A 

WATHl 

EBA 


/ 

/*12JAH17* 

3124 

0 315 3 

R 

6031 12 

R 


JMP 

SLPCK2 

/CHECK NEXT PARTITION 

/*12JAH17* 

3125 

03154 

R 

441001 

A 

N MASK 

441001 


/MASK OF I-MODE , IOINT, TRANS, 

& RUN /.*12JAH17* 
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mumps 


100 

SL 

SEP HUNG 

PARTITION 

UPDATER 



3126 





/ 





3127 

03155 

R 

oooooo 

A 

SETPRT 

0 


/SET UP PTR TO Sy MEND 

/* 1 2 JAH 1 7 * 

3128 

03156 

R 

200572 

R 


LAC 

SLPTMp 

/FETCH STATUS WORD PTR 

/ * 1 2 JAH 1 7 * 

3129 

03157 

R 

353676 

R 


TAD 

C -ST ATI 

/START OF STATUS WORD TABLE 

/* 1 2 JAH1 7* 

3130 

03160 

R 

040567 

R 


DAC 

STEMP2 

/PARTITION NUMBER 

/* 1 2 JAH1 7 * 

3131 

0 3161 

R 

353700 

R 


TAD 

(INDTAB 

/PART. STARTING ADDR TABLE 

/* 1 2JAH1 7* 

31 32 

03162 

R 

040566 

R 


0 AC 

STEM? 

/PTR TO STARTING ADDR OF PART 

/* 1 2 JAH1 7 * 

3 3 3 3 

0 316 3 

R 

200567 

R 


LAC 

STSMP2 

/PARTITION NUMBER 

/* 1 2JAH1 7* 

3134 

03164 

R 

354142 

E 


TAD 

PASTAR 

/PART. SIZE TABLE 

/ * 1 2 JAH 1 7 * 

3135 

03165 

R 

040567 

R 


DAC 

STEMP2 

/PTR TO PART. SIZE 

/* 1 2 JAH 1 7* 

31 36 

03166 

R 

220567 

R 


LAC* 

STEMP2 

/PART. SIZE 

/* 1 2 JAH1 7* 

3137 

03167 

R 

360566 

R 


TAD* 

STEMP 

/PART. START 

/* 1 2 JAril 7 * 

3138 

03170 

R 

723776 

A 


AAC 

-2 

/SY MEND = NEXT TO LAST LDC OF 

PART /* 1 2 J AH 1 7 * 

3139 

03171 

P 

721000 

A 


PAX 


/XR TO HOLD SYMENO ADDR 

/ * 1 2JA417* 

3140 

03172 

R 

707762 

A 


DBA 


/ 

/* 1 2 J AH1 7 * 

3141 

03173 

R 

623155 

R 


JMP* 

SETPRT 

/RETURN 

/* 1 2 JAH1 7* 
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MUMPS 

100 

INPUT/OUIPU1 

■ SUBROUTINES 


3142 






.TITLE 

INPUT/OUTPUT 

SUBROUTINES 

3143 





/ 




3144 





/OUTPUT 

SUBROUTINE 


3145 





/ 




3146 

031 74 

R 

000000 

A 

OUT 

0 



3147 

03175 

R 

513702 

R 

XOUT 

AMO 

(77 

/MASK THE 6-BIT CHAR IN AC AND 

31.48 

03176 

R 

652000 

A 


LMQ 


/SAVE IN MQ. 

3149 

03177 

R 

200164 

R 


LAC 

OUTPUT 

/CHECK DEVICE TYPE 

3150 

03200 

R 

543324 

R 


SAD 

.JCFN1 

/*1 2 JAH1 2* 

3151 

03201 

R 

603322 

R 


JMP 

XOUTIO 

/THIS IS $C FUNCTION 

3152 






• I FPN Z 

DT A 


315 3 

03202 

R 

543203 

R 


SAD 

DTJMPO 


3154 

03203 

R 

634066 

E 

DTJMP0 

JMP* 

QTOiJTl 

/WE'RE PUTTING STUFF TO DT 

3155 






.ENDC 



3156 

03204 

R 

353711 

R 


TAD 

(-JMP-3UTTAB 

-NUMAT 

3157 

03205 

R 

745100 

A 


SPAICLL 



3158 

03206 

R 

603214 

R 


JiMP 

XOUT1 

/TTY - GO SFE IF LEADING SPACES 

3159 






. IFPNZ 

DTA 


3160 

03207 

R 

353712 

R 


TAD 

(-DTA 


3161 

03210 

R 

745100 

A 


SPAICLL 



3162 

0 3 21 1 

R 

6001.64 

R 


JMP 

OUTPUT 

/DECTAPE 

3163 






.ENDC 



3164 

03212 

R 

741200 

A 


SNA 


/PT? 

3165 

0321 3 

R 

603320 

R 


JiMP 

XOUT9 

/YES 

3166 

0321 4 

R 

641002 

A 

XOUT 1 

LACQ 



3167 

03215 

R 

144710 

R 


DZM 

SUBOPT 

/0 THE SPACING COUNTER 

3168 

03216 

R 

044770 

R 


DAC 

CHARI 


3169 

03217 

R 

553653 

R 


SAD 

(40 


3170 

03220 

R 

603267 

R 


JMP 

XOiJT 6 

/SPACE - CHECK RIGHT MARGIN 

3171 

03221 

R 

745202 

A 


SNA I STL 



3172 

03222 

R 

603277 

R 


JIMP 

XOUT7 

/CR 

3173 

0 3 22 3 

R 

553713 

R 


SAD 

( 3 4 


3174 

03224 

R 

603314 

R 


JMP 

XOUT 8 

/FF 

3175 





/ 




3176 

03225 

R 

220141 

R 

XOUT2 

LAC* 

M VAR 


3177 

03226 

R 

745101 

A 


SPAICMA 

I CLL 


3178 

03227 

R 

750001 

A 


CLC 


/NEG %M IGNORED 

3179 

03230 

R 

740030 

A 


I AC 



3180 

03231 

R 

360150 

R 


TAD* 

XVAR 


3181 

03232 

R 

044710 

P 


DAC 

SUBOPT 

/SPACE COUNT * 144 

3182 

03233 

R 

220150 

R 

XOUT4 

LAC* 

XVAR 

/increment SX 

3183 

03234 

R 

723144 

A 


AAC 

144 


318 4 

03235 

R 

060150 

R 


DAC* 

XVAR 


3185 

0 3236 

R 

204770 

R 

XOUT5 

LAC 

CHARI 

/OUTPUT CHAR... 

3186 

03237 

R 

744400 

A 


SNLICLL 



3187 

03240 

R 

21 3653 

R 


LAC 

(40 

/...OR SPACE 

3188 

03241 

R 

745200 

A 

XOUT5A 

SNA ICLL 


/EOM? 

3189 

03242 

R 

760015 

A 


L A W 

15 

/CONVERT TO CR 

3190 

03243 

R 

553713 

R 


SAD 

(34 


3191 

03244 

R 

760014 

A 


LAW 

14 

/FF 

3192 

03245 

R 

745100 

A 


SPAICLL 



3193 

03246 

R 

603251 

R 


JMP 

• + 3 



/* 1 2 JAH1 7 * 


DEEDED 
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MUMPS 

100 


IWPUT/QUrPUT SUBROUTINES 


319 4 

03247 

R 

253653 

R 

XOUT5B 

XOR 

C 40 

/CONVERT TO 7-BIT. 

3195 

03250 

R 

313653 

R 


ADD 

(40 


3196 

03251 

R 

513714 

R 


AND 

(177 

/RUBQUT 

3197 

03252 

R 

652000 

A 


LMQ 



3198 

03253 

R 

200020 

A 

XOUT4A 

LAC 

R20 

/GO TO 10 ROUTINE WITH DEVICE # 

3199 

03254 

R 

600164 

R 


JMP 

OUTPUT 


3200 





/ 




3201 

0 32 55 

R 

744000 

A 

XQUT3 

CLL 


/ TT RETURN HERE 

3202 

03256 

R 

220142 

R 


LAC* 

F VAR 

/IGNORE SPACE COUNT IF %F=0 

3 20 3 

03257 

R 

741200 

A 


SNA 



3204 

03260 

R 

623174 

R 

XOUTDT 

JMP* 

OUT 


3205 

03261 

R 

204710 

R 


LAC 

SUBOPT 


3206 

03262 

R 

353715 

R 


TAD 

(144 


3207 

03263 

R 

044710 

R 


0 AC 

SU80PT 

/INCREMENT SPACE COUNTER 

3208 

03264 

R 

740300 

A 


SZAISMA 



3209 

03265 

R 

623174 

R 


JMP* 

OUT 

/FINISHED 

3210 

03266 

R 

603233 

R 


JMP 

XQUT4 

/LINK TRANSMITS WHETHER SPACE OR 

321 1 





/ 




3212 

03267 

R 

220142 

R 

X0UT6 

LAC* 

FVAR 

/SPACES COME HERE 

3213 

03270 

R 

741201 

A 


CMAiSNA 



321 4 

03271 

R 

603225 

R 


JMP 

XOIJT2 

/IGNORE %F IF IT IS 0 

3215 

03272 

R 

320150 

R 


ADD* 

XV AR 


3216 

03273 

R 

313715 

R 


ADD 

(144 

/RIGHT MARGIN CHECK 

3217 

03274 

R 

741100 

A 


SPA 


/FULL LINE? 

3218 

03275 

R 

603225 

R 


JMP 

XQUT2 

/NO 

3219 

03276 

R 

1 44770 

R 


DZM 

CHARI 

/YES - CHANGE TO CR 

3220 





/ 




3221 

0 32 7 7 

R 

213715 

R 

XGUT7 

LAC 

(144 

/CR 

3222 

03300 

R 

050150 

R 


DAC* 

X VAR 


3223 

03301 

R 

320151 

R 


ADO* 

WAR 


3224 

03302 

R 

060151 

R 


DAC* 

Y V AR 


3225 

03303 

R 

220140 

R 


LAC* 

PVAR 

/GET PAGE LENGTH. 

3226 

03304 

R 

745202 

A 


SNA 1 STL 



3227 

03305 

R 

603236 

R 


JMP 

X0UT5 

/%P=0 - OUTPUT CR 

3228 

03306 

R 

740001 

A 


CM A 



3229 

03307 

R 

320151 

R 


ADD* 

Y V A R 


3230 

0331 0 

R 

745102 

A 


SPA' STL 



3231 

0331 1 

R 

603236 

R 


JMP 

XOUT5 

/ $ Y<%P - OUTPUT CR 

323? 

03312 

R 

213713 

R 


LAC 

( 34 


32 3 3 

0331 3 

R 

044770 

R 


DAC 

CHARI 

/CHANGE CR TO FF 

3234 





/ 




3235 

0331 4 

R 

213715 

R 

XGUT8 

LAC 

(144 

/FF 

32 36 

0 3 315 

R 

060151 

R 


DAC* 

YVAR 

/RESET LINE NO. ($Y) 

3237 

0 3 31 6 

R 

060150 

R 


DAC* 

XV AR 

/RESET CHAR. POSITION ($X) 

3238 

03 3 1 7 

R 

603236 

R 


JMP 

XQUT5 


3239 





/ 




3240 

03320 

R 

641002 

A 

XOUT9 

LACQ 


/PAPER TAPE 

3241 

03321 

R 

603241 

R 


JMP 

XOUT5A 


3242 





/ 




3243 

03 322 

R 

641002 

A 

XOUT10 

LACQ 


/SCHAR FUNCTION 

3244 

0 3 3 2 3 

R 

600164 

R 


JMP 

OUTPUT 


3245 

03324 

R 

634046 

E 

.JCFN1 

JMP* 

CFUNJ 

/* 1 2 JAH1 2* 


CHAR WANTED 



PAG? 87 


MUMPS 100 


INPUT /OUTPUT SUBROUTINES 


3246 


EJECT 
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IN PUT/ DO V PUT S U BRO U T I NSS 


MUMPS 100 


3247 





/INPUT 

SUBROUTINE 

3248 





/ 



3249 

03325 

R 

000000 

A 

PACKEM 

0 


3250 

03326 

R 

045103 

R 


DAC 

UN SAVE 

3251 

03327 

R 

540133 

R 


SAD 

8UFF2 

3252 

03330 

R 

723000 

A 


AAC 

STRACC-COMBUFF 

3253 

03331 

R 

723030 

A 


AAC 

CQMBUFF- 1 

3254 

033 32 

R 

045040 

R 


0 AC 

SAVE 

3255 

03333 

R 

650000 

A 


CLQ 


3256 

0 3334 

R 

200020 

A 

X PACK 2 

LAC 

R20 

3257 

03335 

R 

600163 

R 


IMP 

INPUT 

3258 





/ 



3259 





/ jmp ro 

KEY FROM EACH INPUT 1/ 

3260 





/ 



3261 

03336 

R 

553714 

R 

KEY 

SAD 

(177 

3262 

03337 

R 

603441 

R 


JMP 

RUB 

3263 

03340 

R 

553701 

R 

KEY. 2 

SAD 

(175 

3264 

03341 

R 

603434 

R 


JMP 

ALTMOO 

3265 

03342 

R 

553716 

R 


SAD 

(15 

3 266 

03343 

R 

603430 

R 


JMP 

KEYCR 

3267 

03344 

R 

553717 

R 


SAD 

( 1 34 

3268 

03345 

R 

603405 

R 


JMP 

DEL 

3269 

03346 

R 

553720 

R 


SAD 

(14 

3270 

03347 

R 

213717 

R 


LAC 

(134 

327 1 

03350 

R 

553721 

R 


SAD 

(23 

3272 

03351 

R 

603334 

R 


JMP 

XPACK2 

3273 

03352 

R 

353722 

R 


TAD 

(-33 

3274 

0 3 35 3 

R 

741100 

A 


SPA 


3275 

0 3354 

R 

353723 

R 


TAD 

(100 

3276 

03355 

R 

353724 

R 


TAD 

(33 

3 27 7 

03356 

R 

353725 

R 


TAD 

(777640 

3278 

03357 

R. 

744100 

A 


SMA'CLL 


3279 

03360 

R 

603334 

R 


JMP 

XPACK2 

3280 

03361 

R 

353723 

R 


TAD 

(100 

328 1 

03362 

R 

253653 

R 


XOR 

(40 

3282 

03363 

R 

745300 

A 


SPA J SNA i 

CLL 

328 3 

03364 

R 

603334 

R 


JMP 

XPACK2 

3284 

03365 

R 

104725 

R 

IN 

CALL 

ICHARI 

3285 

0 3 366 

R 

200020 

A 


LAC 

R20 

3286 

03367 

R 

353726 

R 


TAD 

(-NUMAT-1 

3287 

03370 

R 

7441 00 

A 


SMA’CLL 


3288 

03371 

R 

603375 

R 


JMP 

IN2 

3289 

03372 

R 

220150 

R 


LAC* 

XVAR 

3290 

03373 

R 

313715 

R 


ADD 

(144 

3291 

03374 

R 

060150 

R 


DAC* 

XVAR 

3292 

03375 

R 

200220 

R 

IN2 

LAC 

IPOINT 

3293 

03376 

R 

545040 

R 


SAD 

SAVE 

3294 

03377 

9 

745000 

a 


SKP'CLL 


3295 

03400 

R 

603334 

R 


JMP 

XPACK2 

3296 

03401 

R 

200221 

R 


LAC 

IPLACE 

3297 

03402 

R 

553727 

P 


SAD 

( XC I 3 

3298 

03403 

R 

745000 

A 


SKPiCLL 



/* 1 2 JAH1 7* 

/ADDR. OF 1ST WORD IN B-UFFER /*12JAH17* 
/STRING BUFFER? 

/YES 

/ADDR. OF LAST WD. IN BUFFER. 

/MAKE SURE THERE IS NO CONFUSION IN MO 
/20 CONTAINS DEVICE NUMBER 
/SETIQ STORES "JMP I NT A3+DEV" 

PACKAGE 

/RUBDUT 

/ALTMOD,ESC,E0M 

/CR 

/BACKSLASH 

/FORMFEED 

/X-OFF 

/IGNORE X-OFF 
/TRANSLATE CONTROL LETTER 
/TO PRINTABLE LETTER 


/ AC> 1 37 

/CHAR. NOT IN CHAR SET. 
/ AC<40 
/ AC = 1 00 


/CHECK DEVICE TYPE 


/DEVICE NOT MARGIN SPACING 
/INCREMENT $X 


/TOO MANY 

/GET NEXT CHAR 

/*12JAH14* POS WITHIN WORD 

/*12JAH14* LAST CHAR POS FILLED? 

/*12JAH14* YES 
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^UMPS 100 


I N PUT/ OUTPUT SUBROUTINES 


3299 

03404 

H? 

603334 

R 


JMP 

XPACK2 

3300 

03405 

R 

200220 

R 

DEL 

LAC 

r POINT 

330 1 

03406 

R 

545103 

R 


SAD 

UNSAVE 

3302 

03407 

R 

741000 

A 


SKP 


330 3 

0 341 0 

R 

603414 

R 


JMP 

DEL2 

3304 

0341 1 

R 

200221 

R 


LAC 

I PL ACE 

3 305 

0341 2 

R 

553730 

R 


SAD 

CXCI1 

3 306 

0341 3 

R 

603334 

R 


JMP 

XPACK2 

3307 

03414 

R 

777777 

A 

DEL2 

LAW 

-1 

3308 

0341 5 

R 

340221 

R 


TAD 

IPLACE 

3309 

03416 

R 

553731 

R 


SAD 

CXCI1-1 

3310 

0341 7 

R 

603421 

R 


JMP 

DEL3 

3311 

03420 

R 

603425 

R 


JMP 

DEL4 

3312 

03421 

R 

777777 

A 

DEL3 

LAW 

-I 

3313 

03422 

R 

340220 

R 


TAD 

IPQINT 

3314 

03423 

R 

040220 

R 


DAC 

I POINT 

3315 

03424 

R 

213727 

R 


LAC 

CXCI3 

3316 

03425 

R 

040221 

R 

DEL4 

DAC 

IPLACE 

3317 

03426 

R 

603334 

R 


JMP 

XPACK2 

3318 






• I F P N Z 

OTA 

3319 

03427 

R 

634064 

E 

DTJMP1 

JMP* 

DTI N 1 


3320 .ENDC 

3321 , EJECT 


/♦12JAH14* NO 


/BUFFER EMPTY? 

/*12JAH14* FIRST WORD OF BUFFER 
/*12JAH14* NOT FIRST WORD 

/♦12JAH14* CHAR POS 
/*12JAH14* FIRST ONE? 

/* 1 2 JAH1 4* YES , CAN'T BACK UP 

/*12JAH14* IS CHAR PTR 

/* 1 2 JAH1 4* POINTING TO 

/*! 2 JAH1 4* 1ST CHAR OF WORD 

/*12JAH14* YES 

/* 1 2 JAH1 4* NO 

/♦12JAH14* MOVE WORD 

/*12JAH. 14* POINTER 

/* 1 2 J AH 1 4* BACK ONE LOCATION 

/*12JAH14* POINT TO 3RD CHAR IN WRD 

/♦12JAH14* 
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100 


INPUT/ OUTPUT SUBROUTINES 


3322 





/ 




3323 

03430 

R 

213715 

R. 

KEYCR 

LAC 

(144 


3324 

03431 

R 

060150 

R 


DAC* 

XVAR 

/RESET $X 

3325 

03432 

R 

320151 

R 


ADD* 

Y VAR 


3 326 

03433 

R 

060151 

R 


D AC* 

YVAR 

/INCREMENT $Y 

3327 





/ 




3328 

03434 

R 

754000 

A 

ALTMOQ 

CL A • CLL 



3329 

03435 

R 

060154 

R 


DAC* 

PRTEND 

/CLEAR %W COUNTDOWN FOR CLOCK 

3 3 30 

03436 

R 

104725 

R 


CALL 

ICHARI 

/PACK EOM INTO BUFFER 

3331 

03437 

R 

443325 

R 


ISZ 

PACKEM 

/BUMP RETURN addr. FOR 

3332 

03440 

R 

623325 

R 


JMP* 

PACKEM 

/NORMAL RETURN. 

3333 





/ 




33 3 4 

03441 

R 

200020 

A 

RUB 

LAC 

R20 

/IS CURRENT 

3 3 35 

03442 

R 

723727 

A 


AAC 

-DC 01*10-1 

/DEVICE A 

3336 

03443 

R 

740300 

A 


SMA1SZA 


/TERMINAL? 

3337 

03444 

R 

603334 

R 


JMP 

XPACK2 

/NO, TREAT CODE 177 AS ILLEGAL 

3338 

03445 

R 

760036 

A 


LAW 

36 

/ECHO FOR LINE DELETE 

3339 

03446 

R 

103174 

R 


CALL 

OUT 

/r 

3340 

03447 

R 

760025 

A 


LAW 

25 

/U 

3341 

03450 

R 

103174 

R 


CALL 

OUT 


3342 

0345! 

R 

760000 

A 


LAW 

0 0 

/CRLF 

3343 

0 3452 

R 

103174 

R 


CALL 

OUT 


3344 

03453 

R 

213715 

R 


LAC 

(144 


3345 

03454 

R 

060150 

R 


DAC* 

XVAR 

/SET CHAR POSN = 1 

3346 

0 3 455 

p 

360151 

R 


TAD* 

YVAR 


3347 

03456 

R 

060151 

R 


DAC* 

YVAR 

/AND ADD ONE TO LTNE COUNT 

3348 

03457 

R 

623325 

R 


JMP* 

PACKED 

/LINE RU301JT RETURN. 


/♦12JAH17* 
/* 1 2 JAH1 7 * 
/*12JAH17* 
/*12JAH17* 
/* 12 JAH1 7* 
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100 

RES 

NTRANT M 

AIM PROGRAM 


3349 






„ TITLE 

REENTRANT MAIN PROGRAM 

3350 





/interpreter entry for 

DIRECT MODE 

3351 





/ 




3352 

03460 

R 

160145 

R 

BEGIN 

DZM* 

LVAR 

/SET STEP = 0 

3353 

03461 

R 

140652 

R 

BEG1 

DZM 

SWAP sw 


3354 

03462 

R 

200162 

R 


LAC 

PRNCDV 

/LOCK ON TO PRNC 

3 355 

03463 

R 

300331 

R 


ADO 

whqtab 

/DEVICE FOR THIS JOB 

3355 

03464 

R 

043174 

R 


DAC 

OUT 


3357 

03465 

R 

223174 

R 


LAC* 

OUT 

/GET CURRENT OWNER 

3 35 8 

03466 

R 

540654 

R 


SAD 

PRTNMB 

/SAME ONE 

3359 

03467 

R 

603476 

R 


JMP 

BEG3 

/YES-- OK GO ON 

3360 

03470 

R 

741200 

A 


SNA 


/ N 0 * * I S II OWNED 

3361 

03471 

R 

603474 

R 


JMP 

3EG2 


3362 

03472 

R 

101533 

R 


J MS 

HANG 

/YES — GO AWAY FOR AWHILE 

3363 

03473 

R 

603461 

R 


JMP 

BEG1 

/TRY AGAIN 

3364 





/ 




3365 

03474 

R 

200654 

R 

BEG2 

LAC 

PRTNMB 

/LOCK DEVICE 

3 36 6 

0 3475 

R 

063174 

R 


DAC* 

OUT 


3367 

03476 

R 

760000 

A 

BEG3 

LAw 

00 

/CR-LF 

3 368 

03477 

R 

103174 

R 


CALL 

OuT 


3369 

03500 

R 

760076 

A 

BEGIN1 

LAW 

76 

/LEFT CARET CUE 

3370 

03501 

R 

103174 

R 


CALL 

OUT 


3 37 1 






• I FDEF 

KBBGFfJ 


3372 






DZM* 

BVAR 


337 3 






• ENDC 



3374 

03502 

R 

213730 

R 


LAC 

CXCIl 

/*1 2 JAH1 4* CHAR POS = 

3375 

03503 

R 

040221 

R 


DAC 

IPLACE 

/* 1 2 JAH1 2* MIDDLE 

3 376 

03504 

R. 

200132 

R 


LAC 

BUFF 1 


3 377 

03505 

R 

040220 

R 


DAC 

[POINT 

/SET UP POINTER AND 

3378 

03506 

R 

103325 

R 


CALL 

packem 

/FILL DIRECT COMMAND BUFFER. 

3379 

03507 

R 

603500 

R 


JMP 

BEGIN 1 

/LINE RU80UT , REPEAT CUE. 

3380 

03510 

R 

200134 

R 


LAC 

BUFF 

/SET STEP BUFFER PTR TO 

3381 

0351 1 

R 

040206 

R 


DAC 

LOC 

/BEGINNING OF STEP BUFFER. 

3382 

0351 2 

R 

200132 

R 


LAC 

BUFFI 

/POINTS TO FIRST LOC OF* DIR C M N D BUFF 

3383 

0351 3 

R 

040222 

R 


DAC 

OPOI MT 

/SET UP POINTER TO 

3384 

03514 

R 

213732 

R 


LAC 

(XC01 

/*12JAH14* CHAR POS = 

3385 

03515 

R 

040223 

R 


DAC 

□PLACE 

/* 1 2 JAH1 4* MIDDLE 

3386 

03516 

P 

104660 

R 


CALL 

□CHARI 

/INDEX AND LOAD A CHAR. 

3337 

0351 7 

R 

103724 

R 


CALL 

SYNTAX 

/TEST CHAR. TYPE 

3388 

03520 

R 

603527 

R 


JMP 

DIRECT 

/LETTER - GO PROCESS DIRECT CMNQ . 

3389 

03521 

R 

603525 

R 


JMP 

INDIR 

/NUMBER - GO PROCESS INDIRECT CMND. 

3390 

03522 

R 

553733 

R 


SAD 

C 7 3 

/PUNCT, IS IT A ? 

3391 

03523 

R 

603460 

R 


JMp 

BEGIN 

/YES , COMMENT, IGNORE AND GET NEXT LI 

3392 

03524 

R 

000003 

A 


ERP3 


/NO, "SYNTX" 
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100 

CO* 

^1M AND DISPATCHER 


3393 

3394 





/ 

.TITLE 

COMMAND DISP 

3395 





/handle 

INDIRECT COMMAND 

3396 





/ 



3397 

03525 

K 

104340 

R 

INDIR 

CALL 

PLACE 

3399 

3399 

0 3526 

R 

603460 

R 

/ 

JMP 

BEGIN 

3400 





/handle 

DIRECT 

COMMAND 

3401 





/ 



3402 

03527 

R 

760000 

A 

DIRECT 

LAW 

00 

3403 

035 30 

R 

103174 

R 


CALL 

OUT 

3404 

03531 

R 

104710 

R 


CALL 

SUB OPT 

3405 

03532 

R 

103535 

R 


CALL 

DISPAT 

3406 

03533 

R 

000004 

A 


ERR4 


3407 

3408 

03534 

R 

603460 

R 

/ 

JMP 

BEGIN 

3409 





/DISPAT: 

CH ON FIRST LETTER 0 

3410 





/ 



3411 

03535 

R 

000000 

A 

DISPAT 

0 


3412 

03536 

R 

140203 

R 


DZM 

FORTST 

341 3 

03537 

R 

104660 

R 

PORXIT 

CALL 

ochari 

3414 

03540 

R 

103724 

R 


CALL 

SYNTAX 

3415 

03541 

R 

603550 

R 


JMP 

DISPT3 

3416 

03542 

R 

000003 

A 


ERR3 


3417 

03543 

R 

553733 

R 


SAD 

(73 

3418 

03544 

R 

603602 

R 


JMP 

DTATST 

3419 

03545 

R 

553653 

R 


SAD 

(40 

3420 

03546 

R 

603537 

R 


JMP 

FGRXIT 

3421 

03547 

R 

000003 

A 


ERR 3 


3422 

03550 

R 

313734 

R 

DISPT3 

ADD 

(JMP DTAB-1 

3423 

03551 

R 

047163 

R 


DAC 

EVAL 

3424 

03552 

R 

104660 

P 

DISPT1 

CALL 

OCHARI 

3425 

03553 

R 

745200 

A 


SNA iCLL 

3426 

03554 

R 

407163 

R 


XCT 

EVAL 

3427 

03555 

R 

553733 

R 


SAD 

(73 

3428 

03556 

R 

407163 

R 


XCT 

EVAL 

3429 

03557 

R 

553653 

R 


SAD 

(40 

3430 

03560 

R 

741000 

A 


SKP 


3431 

03561 

R 

603552 

R 


JMP 

01SPT1 

3432 

03562 

R 

144645 

R 


DZM 

OCHAR 

3433 

03563 

R 

444645 

R 

D1SPT2 

ISZ 

□CHAR 

3434 

03564 

R 

104660 

R 


CALL 

□CHARI 

3435 

03565 

R 

553653 

R 


SAD 

(40 

3496 

03566 

R 

603563 

R 


JMP 

DISPT2 

3 437 

03567 

R 

104710 

R 


CALL 

SUBOPT 

3438 

03570 

R 

204645 

R 


LAC 

OCHAR 

3439 

03571 

R 

740020 

A 


RAR 


3 4 40 

0 3572 

R 

407163 

p 


XCT 

EVAL 

3441 






.EJECT 



HER 


/STORE STEP IN PROGRAM BUFFER. 
/GET NEXT COMMAND. 


/OUTPUT CRLF 

/DECREMENT OPOINT 

/GO TO COMMAND DISPATCHER 

/DIRECT MODE QUIT EXIT- "CMMND" 

/CONTINUE WITH NEXT DIRECT CMND, 

0 MM AND WORD 

/* 1 2 JAH1 7* 

/SET "NOT IN FOR" /*12JAH17* 

/GET NEXT CHAR. 

/TEST CHAR. TYPE 
/LETTER 

/NUMBER- "SYNTX" 

/PUNCTUATION, IS IT A ; 

/YES, STEP COMPLETED IE NOT IN FOR 
/NO, IS IT A SPACE? 

/YES, GO GET NEXT CHAR 
/NO, "SYNTX" 

/STORE JMP TO OTAB 
/FOR COMMAND DISPATCH. 

/GET NEXT CHAR, 

/EOM? 

/YES, DISPATCH TO CMND PROC. 

/COMMENT FOUND 
/NO. IS IT A SPACE? 

/NO SPACE FOUND YET 

/SAVE 1 AS THE LINK ( POSS t BLE OPERAND) 

/GET NEXT CHAR 
/IS IT A SPACE? 

/YES, ANOTHER SPACE, PASS OVER IT 
/DECREMENT OPOINT AND 
/GET A CHARACTER 

/SET UP LINK FOR "POSSIBLE OPERAND FLAG" 
/DISPATCH TO COMMAND PROCESSING. 
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MUMPS 


100 

A 

OMMANQ D1SP 

'ATCHER 


3442 





/RETURN 

FROM COMMAND PROCESSING 

<9 

3443 





/ 



3444 

03573 

R 

104645 

R 

DTABLE 

CALL OCHAR 

/GET A CHAR. 

3445 

03574 

R 

553653 

R 

DTAB1 

SAD (40 

/*12JAH12* IS IT A SPACE? 

3446 

03575 

R 

603537 

R 


JMP PORXIT 

/YES, GO GET NEXT CHAR. 

3447 

03576 

R 

553733 

R 


SAD (73 

/NO, IS IT A ,* 

3449 

93577 

R 

603602 

R 


JMP DTATST 

/YES, COMMENT, TREAT AS END OF 

3449 

03600 

R 

744200 

A 


SZA1CLL 

/NO, IS IT EON! 

3459 

03601 

R 

000003 

A 


ERR3 

/NO, "SYNTX" 

3451 

03602 

R 

200203 

R 

DTATST 

LAC EORTST 


3452 

03603 

R 

744200 

A 


SZ A i CLL 

/ARE WE IN FOR LOOP? 

3453 

03504 

R 

612077 

R 


JMP FORSTP 

/YES, GO TO NEXT ITERATION 

3454 

03605 

R 

443535 

R 


ISZ DISPAT 

/NO , BUMP FOR NORMAL RETURN. 

3455 

03606 

R 

623535 

R 


JMP* DISPAT 

/RETURN, STEP COMPLETED. 

3456 






.EJECT 
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M(JMP£ 

l 

100 

r* 

OMMAND DISPATCHER 


3457 





/DISPATCH TABLE 

FOR COMMANDS 

3 45 8 





/ 


3459 

03607 

R 

611477 

R 

DTAB JMp 

ASK 

3460 

03610 

R 

611536 

R 

JMP 

BREAK 

3461 

0361 1 

R 

634043 

E 

JMP* 

CALLP 

3462 

0361 2 

R 

611553 

R 

JMP 

DO 

3463 

0361 3 

R 

611677 

R 

JMP 

erase 

3464 

03614 

R 

611772 

R 

JMP 

FOR 

3465 

03615 

R 

612266 

R 

JMP 

GO 

3466 

03616 

R 

634107 

E 

JMP* 

HALT 

3467 

0361 7 

R 

612347 

R 

JMP 

IF 

3468 

03620 

R 

612366 

R 

JMP 

JOIN 

3469 

03621 

R 

612506 

R 

JMP 

KILL 

3470 

03622 

R 

634120 

E 

JMp* 

LOCK 

3471 





.IFPNZ 

MODIFY 

3472 

03623 

R 

612533 

R 

JMP 

MODFY 

3473 





. ENDC 


3474 





. 1FNOZ 

MODIFY 

3475 





ERR4 


3476 





• ENDC 


3477 

03624 

R 

000004 

A 

ERR4 


3478 

03625 

R 

607677 

R 

JMP 

OPEN 

3479 

03626 

R 

613020 

R 

JMP 

PRINT 

3480 

03627 

R 

613054 

R 

JMP 

QUIT 

348 1 

03630 

R 

613073 

R 

JMP 

READ 

3482 

03631 

R 

613213 

R 

JMP 

SET 

3483 

03632 

R 

613250 

R 

JMP 

TYPE 

3484 

0 36 33 

R 

634160 

FJ 

JMP* 

UNLOCK 

3485 

0 36 3 4 

R 

000004 

A 

ERR4 


3486 

03635 

R 

613417 

R 

JMP 

WRITE 

3487 

03636 

R 

613467 

R 

JMP 

XCOM 

3488 

03637 

R 

000004 

A 

ERR4 


3489 

03640 

R 

000004 

A 

ERR4 



/*12JAH12* CALL OR CLOSE 


/FOR OR FILE 
/GO OR GOTO 

/M2JAH12* HALT OR HANG 


/* 1 2 JAH1 2* 


/"CMMND" 

/OPEN' OR OVERLAP 


/*12JAH12* 

/"CMMND" 

/SPECIAL X COMMAND FOR READING DISC BLOCKS 
/"CMMND" 

/"CMMND" 
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100 

SUBROUTINES 

FOR INTERPRETER 

3490 






.TITLE 

SUBROUTINES F 

3491 





/ 



3492 





/XPRODA 

- GET 

OWNERSHIP OF DI 

3493 





/ C 

ALLING 

sequence: 

3 49 4 





/ 

CALL 

PRODA 

3495 





/ 

ANY 

INSTRUCTION 

3496 





/ 

PRODA RETURNS HERE 

3497 





/ 



3498 

03641 

R 

000000 

A 

PRODA 

0 


3499 

03642 

P 

705522 

A 

XPRODA 

I NT OFF 


3500 

03643 

R 

400720 

R 


XCT 

SU8QUES 

3501 

0 36 44 

R 

603650 

R 


JMP 

PROD 1 

3502 

0 3 645 

R 

140652 

R 


DZM 

S W APS W 

3503 

03646 

R 

705521 

A 


IN TON 


3504 

0 3647 

R 

623641 

R 


JMP* 

PRODA 

3505 

03650 

R 

040201 

R 

PROD 1 

DAC 

SAVPRD 

3506 

03651 

R 

200577 

R 


LAC 

OSKACT 

3507 

03652 

R 

741200 

A 


SNA 


3508 

03653 

R 

603661 

R 


JMP 

PROQ2 

3509 

03654 

R 

540654 

R 


SAD 

PRTNMB 

3510 

03655 

R 

603666 

R 


JMP 

PROD 3 

3511 

03656 

R 

101533 

R 

PR3D15 

JMS 

H A N G 

351 2 

03657 

R 

200201 

R 

PRODRT 

LAC 

SAVPRD 

3513 

03660 

R 

603642 

R 


JMP 

XPRODA 

3514 

03661 

R 

440600 

R 

PR0D2 

ISZ 

OSKCNT 

3515 

03662 

R 

603666 

R 


JMP 

PRQD3 

3516 

03663 

R 

200716 

R 


LAC 

DSKREP 

3517 

03664 

R 

040600 

R 


DAC 

DSKCNT 

3518 

03665 

R 

603656 

R 


JMP 

PROD 1 5 

3519 

0 3666 

R 

200654 

R 

PR0D3 

LAC 

PRTNMB 

3520 

03667 

R 

040577 

R 


DAC 

OSKACT 

3521 

03670 

R 

040601 

R 


DAC 

PRVDKA 

352? 

03671 

R 

140652 

R 


DZM 

SN APS w 

3523 

03672 

R 

705521 

A 


IN TON 


3524 

03673 

R 

200201 

R 


LAC 

SAVPRD 

3525 

03674 

R 

623641 

R 


JMP* 

PRODA 

3526 






.EJECT 



1 INTERPRETER 


& CORE BLOCK SWITCH 


/*12JAH17* 

/PROHIBIT CHANGE OF SUBCHJES 

/which disk is running? 

/SUBMERGED 

/SERIAL, PROHIBIT INTERRUPTION 


/SAVE AC 
/DISK IN USE? 

/NO, IT'S ALL OURS 
/DO WE ALREADY OWN IT? 

/YES 

/NO, WAIT YOUR TURN 
/RESTORE AC 
/TRY AGAIN 

/INCREMENT CONSEC DISK ACCUESSES 

/NO OVERFLOW 

/DONE YOUR SHAREI 

/RESET MAX ACCESSES CNfR 

/GIVE UP TIME SLICE 

/WE NOW OWN DISK 

/PREV OWNER SWITCH 

/INHIBIT SWAP TILL DISK I/O BEGUN 
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SUBROUTINES FOP INTERPRETER 


3527 * I F P N Z OTA 

3528 / 

3529 /SUBROUTINE TO LOCK ONTO THE DECTAPE CONTROLLER FOR THIS PARTITION 

3530 / 


3531 





/CALL 

LOCK DT WITH ION 

3532 





/ 



3533 

03675 

R 

101533 

R 

LQKDT1 

J MS 

HANG 

3534 

03676 

R 

540654 

R 


SAD 

PRTNMB 

3535 

03677 

R 

000003 

A 


ERR 3 


3536 








3537 

03700 

R 

603702 

R 


JMP 

XLOKDT 

3538 





/ENTRY 

POINT FOP 

J LOKDT 

3539 

03701 

R 

oooooo 

A 

LOKDT 

0 


3540 

03702 

R 

705522 

A 

XLOKDT 

IMTQFF 


3541 

03703 

R 

234062 

E 


LAC* 

DTACT 

3542 

03704 

R 

744200 

A 


SZAiCLL 


3543 

03705 

R 

603675 

R 


JMp 

LOKDT! 

3544 

0 37 06 

R 

200654 

R 


LAC 

PRTNMB 

3545 

03707 

R 

074062 

E 


DAC* 

DTACT 

3546 

037 1 0 

R 

705521 

A 


IN TON 


3547 

0371 1 

R 

623701 

R 


JMP* 

LOKDT 

3548 






„ ENDC 


3549 






.EJECT 



AND SNAP ENABLED 

/MAY AS NELL HANG FOR AWHILE 

/PARTITION ALREADY LOCKED TO DT ROUTINES 
/ " S Y M T X M ERROR 

/*12JAH17* 

/*12JAH17* 

/IS DT CONTROLLER IN USE? C MOVE , SEARCH , ETC.) 
/. . . YES 

/DT CONTROLLER NOW OWNED BY THIS PARTITION 
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3550 





/ 




3551 





/XOTEXT 

- OUTPUT 

CHARACTERS 

UP TO EOM 

3552 





/ 




3553 

037 1 2 

R 

000000 

A 

OTEXT 

0 


/*12JAH17* 

3554 

037 1 3 

P 

513735 

R 


AND 

C 377777 

/TRIM MESSAGE ADDR /*12JAH17* 

3555 

0371 4 

R 

040222 

R 


DAC 

□POINT 

/GETTING CHAR. 

3556 

0371 5 

R 

213736 

R 


LAC 

( XC03 

/*12JAH14* INIT 

3557 

03716 

R 

040223 

R 


DAC 

□PLACE 

/*12JAH14* CHAR PGS 

3558 

037 17 

R 

104660 

R 


call 

OCHARI 

/INDEX & LOAD CHAR USING OPOINT. 

3559 

03720 

R 

741200 

A 


SNA 


/EOM? 

3560 

03721 

R 

623712 

R 


JMP* 

OTEXT 

/YES, FINISHED. 

3561 

03722 

R 

1 03174 

R 


CALL 

OUT 

/NO, OUTPUT CHAR AND 

3562 

03723 

P 

603717 

R 


JMP 

.-4 

/CONTINUE. 

3563 






• EJECT 
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3564 





/ 







3565 





/XSYNTAX - CHECK 

CHARACTER TYPE 





3566 





/ 







3567 





/enter 

WITH CHARACTER TO CHECKED 

IN THE AC 




3568 





/EXITS; 

(WITH AC 

RESTORED) 





3569 





/ R1 

- CHARACTER IS ALPHABETIC 





3570 





/ R2 

- CHARACTER IS NUMERIC (DOES NOT INCLUDE 

DECIMAL POINT 

OR SIGNS) 

3571 





/ R3 

- CHARACTER IS PUNCTUATION (INCLUDES 

EOM 

(00) AND SPACE 

(40) 

3572 





/ 







3573 





/ 







3574 

03724 

R 

000000 

A 

SYNTAX 

0 





/*12JAH17* 

3575 

03725 

R 

652000 

A 


LMG 


/SAVE CHAR 

TEMPORARILY 

/*12JAH17* 

3576 

03726 

R 

745200 

A 


SNA iCLL 






3577 

03727 

R 

603733 

R 


JMP 

XSYN1 

/M2JAH12* 

EOM ; 

CONSIDERED TO 

BE PUNC 

3578 

03730 

R 

313722 

R 


ADD 

(777745 

/- 3 3 




3579 

03731 

R 

741100 

A 


SPA 






3580 

03732 

R 

603742 

R 


JMP 

RESTORE 

/ LETTER 




3581 

03733 

R 

443724 

R 

XSYN1 

ISZ 

SYNTAX 

/*12JAH12* 




3582 

037 34 

R 

313737 

R 


ADD 

(777752 

/*26 




3583 

037 35 

R 

741100 

A 


SPA 






3584 

03736 

R 

603741 

R 


JMP 

X S Y N 2 

/* 1 2 J AH1 2* 

PUNC 

TU AT ION 


3585 

03737 

R 

313740 

R 


ADD 

(777765 

/-I 3 




3586 

03740 

R 

740100 

A 


SMA 


/ NUMBER 




358 7 

03741 

R 

443724 

R 

XSYN2 

ISZ 

SYNTAX 

/* 1 2 J AH 1 2* 




3588 

03742 

p 

641002 

A 

RESTORE 

LACQ 


/ RESTORE AC AND 


3589 

0 3 7 4 3 

R 

623724 

R 


JMP* 

SYNTAX 

/RETURN. 




3590 






.EJECT 
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3591 





/ X S T 0 R 1 

,XSTOR2 

- CHECK STORAGE 

AVAILABLE WITHIN USER’S PARTITION 

3592 





/ 




3593 





/ 




3594 





/ 




3595 





/ X S T 3 R 1 

- PROGRAM LENGTH CHANGE 


3596 





/ 

ENTER WITH NEW VALUE FOR "END " IN THE AC 

3597 





/ 




3598 

03744 

R 

000000 

A 

STORl 

0 


/*12JAH17* 

3599 

03745 

R 

t>52000 

A 


LMQ 


/ <AC> NEW VALUE FOR END /*12JAH17* 

3600 

03746 

R 

740031 

A 


CM A i I AC 



3601 

03747 

R 

340165 

R 


TAD 

STACK 


3602 







/NUMBER 

OF WORDS BETWEEN "END" AND START OF STACK 

3603 

03750 

R 

741100 

A 


SPA 


/WILL NEW "END" CAUSE STACK TO BE MOVED? 

3604 

03751 

R 

603766 

R 


JMP 

MSTACK 

/YES, CHANGE LOCATION OF STACK 

3605 

03752 

R 

340170 

R 

XRETl 

TAD 

SYMBEG 


3606 

03753 

R 

740031 

A 


CMAUAC 



3607 

03754 

R 

340166 

R 


TAD 

SPQINT 

/ADD # OF WORDS BET , END OF STACK & "SYMBEG 

3608 

03755 

R 

740031 

A 


CMAUAC 


• 

3609 

03756 

R 

740030 

A 


I AC 


/TOTAL FREE WORDS 

3610 

03757 

R 

060146 

R 


DAC* 

SVAR 

/ CONVERT FROM WORDS TO CHARACTERS 

361 1 

03760 

R 

744010 

A 


RCL 



3612 

03761 

R 

320146 

R 


ADD* 

SVAR 

/ 3 * (NO. OF WDS) 

361.3 

03762 

R 

060146 

R 


0 AC* 

SVAR 

/ SET UP. NEW $S 

3614 

03763 

a 

641002 

A 


LACQ 



3615 

03764 

R 

040167 

R 


DAC 

END 

/UPDATE VALUE FOR "END” 

3616 

03765 

R 

623744 

R 


JMP* 

STORl 

/ EXIT 

3617 

03766 

R 

740001 

A 

MSTACK 

CM A 



3618 

03767 

R 

040266 

R 


DAC 

GASS 

/SAVE LENGTH OF STACK OFFSET 

3619 

03770 

R 

340166 

R 


TAD 

SPQINT 


3620 

0 3771 

R 

740031 

A 


CMAUAC 



3621 

03772 

R 

340170 

R 


TAD 

SYMBEG 


3622 

03773 

R 

741100 

A 


SPA 


/ENOUGH ROOM? 

362 3 

03774 

R 

604026 

R 


JMP 

XST011 

/NOT ENOUGH ROOM FOR INCREASE /+12JAH17* 

3624 

03775 

R 

641002 

A 


LACQ 



3625 

03776 

R 

040165 

R 


DAC 

STACK 

/NEW "END" BECOMES NEW "STACK" 

3626 

03777 

R 

777777 

A 


LAW 

-1 


3627 

04000 

R 

340166 

R 


TAD 

SPOINT 

/FETCH OLD END OF STACK 

3628 

04001 

R 

046621 

R 


DAC 

CONT 


3629 

04002 

R 

340266 

R 


TAD 

GASS 

/SUBTRACT OFFSET 

3630 

04003 

R 

740030 

A 


I AC 



3631 

04004 

R 

040266 

R 


DAC 

GASS 

/NEW END OF STACK 

3632 

04005 

R 

740030 

A 


I AC 



3633 

04006 

R 

040166 

R 


DAC 

SPOINT 


3634 

04007 

R 

353741 

R 


TAD 

(-1 


3635 

0401 0 

R 

540165 

R 


SAD 

STACK 

/ZERO LENGTH STACK? 

36 36 

0401 1 

R 

604023 

R 


JMP 

NO ST AC 

/YES 

3637 

04012 

R 

226621 

R 

MSTKR 

LAC* 

CONT 

/TRANSFER STACK 

3638 

0401 3 

R 

060266 

R 


DAC* 

GASS 


3639 

04014 

R 

777777 

A 


LAW 

-1 


3640 

0 4 01 5 

R 

340266 

R. 


TAD 

GASS 


3641 

04016 

R 

040266 

R 


DAC 

GASS 


3642 

04017 

R 

777777 

A 


LAW 

-1 
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3643 

04020 

R 

346621 

R 


TAO 

CONT 


3 644 

04021 

R 

046621 

R 


DAC 

CONT 


36 45 

04022 

R 

540167 

R 


SAD 

END 

/END OF TRANSFER? 

3646 

0 4023 

R 

751000 

A 

NOSTAC 

SKPICLA 


/YES 

3647 

04024 

R 

604012 

R 


JMP 

MSTKR 

/NO 

3648 

04025 

P 

603752 

R 


JMP 

XRET1 


3649 

04026 

R 

200134 

R 

XST01 1 

LAC 

BUFF 

/CLEAR /M2JAH17* 

3650 

04027 

R. 

740030 

A 


I AC 


/OUT /* 1 2 JAH 1 7 * 

3651 

04030 

R 

040167 

R 


DAC 

END 

/PROG /* 1 2 J AH 1 7* 

3652 

04031 

R 

160134 

R 


DZM* 

BUFF 

/BUFFER /* 1 2 JAH1 7* 

3653 

040 32 

R 

160167 

R 


DZM* 

END 

/TO EMPTY /*12JAH!7* 

3654 

04033 

n 

K 

000001 

A 


ERR1 


/"STORE" ERROR /*12JAH17* 

3655 





/ 




3656 





/ 




365 7 





/XSTGR2 

- SYMBOL TABLE LENGTH 

CHANGE 

3658 





/ 

ENTER WITH NEW VALUE 

FOR "SYMBEG” IN THE AC 

3659 





/ 




3660 

04034 

R 

000000 

A 

STQR2 

0 


/*12JAH17* 

3661 

04035 

R 

652000 

A 


LMQ 


/ < AC> NEW VALUE FOR SYMBEG /*12JAH17* 

3662 

04036 

R 

740001 

A 


CM A 



3663 

04037 

R 

340166 

R 


TAD 

SPOIMT 


3664 

04040 

R 

740331 

A 


SMAiSZA! 

CMAilAC 

/CHANGE OF STACK LOCATION NECCESSARY? 

3665 

04041 

p 

604055 

R 


JMP 

NSTACK 

/YES 

3666 

0404? 

R 

340165 

R 

XRET2 

TAD 

STACK 


3667 

04043 

R 

740031 

A 


CMAilAC 



3668 

04044 

R 

340167 

R 


TAD 

END 

/ADD FREE WORDS FROM END TO STACK 

3669 

04045 

R 

740031 

A 


CMAilAC 



3670 

04046 

K 

060146 

R 


DAC* 

SVAR 

/ CONVERT FROM WORDS TO CHARACTERS 

3671 

04047 

R 

744010 

A 


RCL 



3672 

04050 

R 

320146 

R 


ADD* 

SVAR 

/ 3 * (NO. OF WDS ) 

3673 

04051 

R 

060146 

R 


DAC* 

SVAR 

/ SET UP NEW $S 

3674 

04052 

R 

641002 

A 


LACO 



3675 

04053 

R 

040170 

R 


DAC 

SYMBEG 

/UPDATE VALUE FOR "SYMBEG" 

3676 

04054 

R 

624034 

R 


JMP* 

STOR2 

/ EXIT 

3677 

04055 

R 

040266 

R 

NSTACK 

DAC 

GASS 

/MEG. LENGTH OF OFFSET 

3678 

04056 

R 

340166 

R 


TAD 

SPOINT 


3679 

04057 

R 

040166 

R 


DAC 

SPOINT 

/NEW END OF STACK 

3680 

04060 

R 

200165 

R 


LAC 

STACK 


3681 

04061 

R 

046621 

R 


DAC 

CONT 


3682 

04062 

R 

340266 

R 


TAD 

GASS 


3683 

04063 

R 

040165 

R 


DAC 

STACK 

/NEW START OF STACK 

3684 

04064 

R 

040266 

R 


DAC 

GASS 


3685 

04065 

R 

740031 

A 


CMAilAC 



3686 

04066 

R 

340167 

R 


TAD 

END 


3687 

04067 

R 

740300 

'A 


SMAiSZA 


/PARTITION BIG ENOUGH? 

3688 

04070 

R 

000001 

A 


ERR 1 


/NO , "STORE": NOT ENOUGH ROOM FOR INCREASE 

3689 

04071 

R 

226621 

R 

NSTKR 

LAC* 

CONT 

/TRANSFER STACK 

3690 

04072 

R 

060266 

R 


DAC* 

GASS 


3691 

04073 

R 

446621 

R 


ISZ 

CONT 


369? 

04074 

R 

440266 

R 


ISZ 

GASS 


3693 

04075 

R 

777777 

A 


LAW 

-1 


3694 

04076 

R 

346621 

R 


TAD 

CONT 
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3695 

04077 

R 

540170 

R 

SAD 

SYMBEG 

/END OF TRANSFER? 

3696 

04100 

R 

751000 

A 

SKPiCLA 


/^ES 

3697 

04101 

R 

604071 

R 

JMP 

NSTKR 

/NO 

3698 

3699 

04102 

R 

604042 

R 

JMP 

.EJECT 

XRET2 
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3700 





/XDECIN 

- CONVERT NUMERIC 

STRING TO BINARY 

3701 





/ 




3702 





/ 

ENTER 

WITH FIRST C 

HAR OF STRING IN AC AND OPOIMT TO BE INDEXED TO NEXT CHAR. 

3703 





/ 

ANY ACCEPTABLE LEADING SIGNS MUST BE HANDLED 3Y CALLING ROUTINE BEFORE CALL DECH 

3704 





/ 

THERE 

ARE TWO EXITS FROM DECIN: RETURN TO CALL, DECIN+1 IF ALPHAS OTHER THAN ONE 

3705 





/ 

DECIMAL POINT ARE 

ENCOUNTERED, IF RESULT IS > 1310.71, IF RESULT IS < .01; SYNTAX 

3706 





/ 

IS SET 

TO THE APPROPRIATE CAL. (THIS IS SO THAT $V CAN EASILY RETURN ZERO FOR 

3707 





/ 

SUCH ERRORS INSTEAD OF KLUDGING UP THE ERROR PROCESSOR). 

3708 





/ 

RETURN 

TO CALL DECIN + 2 WHEN PUNCTUATION OTHER THAN DEC I AML POINT ENCOUNTERED 

3709 





/ 

IMPLYING END OF INPUT STRING ENCOUNTERED. CALLING ROUTINE MUST 

3710 





/ 

CHECK 

FOR ACCEPTABLE PUNCTUATION AT THIS POINT. 

371. 1 





/ 




3712 





/ 




3713 

04103 

p 

000000 

A 

DEC IN 

0 


/♦12JAH17* 

3714 

04104 

R 

043724 

R 


DAC 

SYNTAX 

/SAVE FIRST CHAR /*12JAH17* 

3715 

04105 

R 

777773 

A 

XDECM5 

LAW 

-5 

/SETUP COUNTER FOR LEGAL # OF DIGITS 

3716 

041 06 

R 

040214 

R 


DAC 

M 

/BEFORE THE DECIMAL POINT 

3717 

04107 

R 

140217 

R 


DZM 

ACTEMP 

/ZERO THE "AC" 

3718 

04110 

R 

203724 

R 


LAC 

SYNTAX 


3719 

04111 

R 

741000 

A 


SKP 



3720 

04112 

R 

104660 

R 

XDECOO 

CALL 

och art 

/GET NEXT CHAR. 

3721 

04113 

R 

103724 

R 


CALL 

SYNTAX 

/WHAT TYPE IS IT? 

3722 

04114 

p 

604164 

R 


JMP 

DECER3 

/A — "HARD" SYNTX ERROR 

3723 

041 15 

R 

604121 

R 


JMP 

DECNUM 

/N -- PROCESS THE NUMBER 

3724 

04116 

R 

553742 

R 


SAD 

(56 

/P — DECIMAL POINT? 

3725 

04117 

R 

604151 

R 


JMP 

DECPT 

/YES, PROCESS IT. 

3726 

04120 

R 

604206 

R 


JMP 

XDOUT 

/NO, GO FINISH UP NUMBER AND GO AWAY. 

3727 

04121 

R 

513743 

R 

DECNUM 

AND 

(17 

/STRIP OFF THE ASCII BUS. V 

3723 

04122 

R 

043724 

R 


DAC 

SYNTAX 

/SAVE FOR NOW 

3729 

04123 

R 

200214 

R 


LAC 

M 


3730 

04124 

R 

553705 

R 


SAD 

(2 

/USED UP ALL OUR DECIMAL PLACES? 

37 3 1 

04125 

R 

604156 

R 


JMP 

DECPTO 

/YES, ALLOW ONLY TRAILING ZERO. 

37 32 

04126 

R 

343724 

R 


TAD 

SYNTAX 

/LEADING ZERO (I.E. CHAR=0 & M=-5) ? 

3733 

04127 

R 

544105 

R 


SAD 

XDECM5 


3734 

041 30 

R 

604112 

R 


JMP 

XDECOO 

/YES, IGNORE IT. 

3735 

04131 

R 

440214 

R 


ISZ 

M 

/WILL THIS EXCEED # OF LEGAL DIGITS IN INT. PART? 

3736 

04132 

R 

741000 

A 


SKP 



3737 

04133 

R 

604203 

R 


JMP 

DECER6 

/YES, "HARD" MAXIM ERROR. 

3733 

04134 

R 

200217 

R 


LAC 

ACTEMP 

/NO CONTINUE FORMING NUMBER. 

37 39 

041 35 

R 

653122 

A 


MUL? 

12 



04136 

R 

000012 

A 





3740 

04137 

R 

744200 

A 


SZAiCLL 

/OVERFLO? 

3741 

04140 

R 

604167 

R 


JMP 

DECER4 

/YES - MAXIM 

3742 

04141 

P 

641002 

A 


LACQ 



3743 

04142 

R 

343724 

P 


TAD 

SYNTAX 


3744 

04143 

R 

741400 

A 


SZL 


/OVERFLO? 

3745 

04144 

R 

604173 

R 


JMP 

DECEP5 

/YES - MAXIM 

3 7 46 

04145 

R 

741100 

A 


SPA 


/OR MAYBE A LITTLE OVERFLO? 

3747 

04146 

R 

604201 

R 


JMP 

DECR55 

/YUP - JUST A LITTLE 

3743 

04147 

R 

040217 

R 


DAC 

ACTEMP 


3749 

04150 

R 

604112 

R 


JMP 

XDECOO 


3750 

04151 

R 

200214 

R 

DEC P I 

LAC 

■A 

/TOO MANY DECIMAL POINTS? 
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3751 

04152 

R 

740100 

A 


S^A 


3752 

04153 

R 

604164 

R 


JMP 

QECER3 

3753 

04154 

R 

140214 

R 


DZM 

M 

3754 

04155 

R 

604112 

R 


JMP 

XDECOO 

3755 

04156 

R 

203724 

R 

DECPIO 

LAC 

SYNTAX 

3756 

04157 

R 

751200 

A 


SNA 1 CL A 


3757 

04160 

R 

604112 

R 


JMP 

XDECOO 

375ft 

04161 

R 

723007 

A 


AAC 

7 

3759 

04162 

R 

043724 

R 


DAC 

SYNTAX 

3760 

04163 

R 

604207 

R 


JMP 

XDOUTE 

3761 

04164 

R 

213744 

R 

DECER3 

LAC 

C 3 

3762 

04165 

R 

043724 

R 


DAC 

SYNTAX 

3763 

04166 

R 

604207 

R 


JMP 

XDOUTE 

3764 

04167 

R 

200217 

R 

DECER4 

LAC 

AC TEMP 

3765 

04170 

R 

653323 

A 


IDIV? 

144 


04171 

R 

000144 

A 




3766 

04172 

R 

604176 

R. 


JMP 

QECR53 

3767 

04173 

R 

200217 

R 

DECER5 

LAC 

AC TEMP 

3769 

04174 

R 

653323 

A 


I D I V ; 

12 


04175 

ft 

000012 

A 




3769 

041.76 

R 

641002 

A 

DECR53 

LACQ 


3770 

04177 

R 

040217 

R 


DAC 

ACTEMP 

377 1 

04200 

R 

751000 

A 


CLA1SKP 


3 77 2 

04201 

R 

750030 

A 

DECR55 

CLA1IAC 


3773 

04202 

R 

040214 

R 


DAC 

■M 

3774 

04203 

R 

213745 

R 

DECER6 

LAC 

C 6 

3775 

04204 

R 

043724 

R 


DAC 

SYNTAX 

3776 

04205 

R 

604207 

R 


JMP 

XDOUTE 

3777 

04206 

R 

143724 

R 

XD3UT 

DZM 

SYNTAX 

377ft 

04207 

R 

200217 

R 

XDOUTE 

LAC 

ACTEMP 

3779 

04210 

R 

652000 

A 


LMQ 


3780 

0421 1 

R 

200214 

R 


LAC 

M 

3781 

0421 2 

R 

553705 

R 


SAD 

(2 

3782 

0421 3 

R 

604227 

R 


JMP 

XD0UT2 

3783 

0421 4 

R 

740300 

A 


SZAJSMA 


3784 

0421 5 

R 

604222 

R 


JMP 

XD0UT1 

3785 

04216 

R 

641122 

A 


MUL-LMQ+EAE 

3786 

04217 

R 

000012 

A 


12 


3787 

04220 

R 

740200 

A 


SZA 


3798 

04221 

R 

604167 

R 


JMP 

DECFP4 

3789 

04222 

R 

641122 

A 

XD0UT1 

MUL-LMQ+EAE 

3790 

04223 

R 

000012 

A 


12 


3791 

04224 

R 

740200 

A 


SZA 


3792 

04225 

R 

604173 

R 


JMP 

DEC EPS 

3793 

04226 

R 

641002 

A 


LACQ 


3794 

04227 

R 

751100 

A 

XD0UT2 

SPA1CLA 


3795 

04230 

ft 

604173 

R 


JMR 

DECER5 

3796 

04231 

R 

543724 

R 


SAD 

SYNTAX 

3797 

04232 

R 

444103 

R 


ISZ 

DECIN 

3798 

04233 

R 

641002 

A 


LACQ 


3799 

04234 

R 

624103 

R 


JMP* 

DEC I N 

3800 






.EJECT 



/YES, "HARO" SYf\iTX ERROR, 
/WO, SET DECIMAL PLACE, 


/TRAILING ZERO? 

/YES, GO ON 

/NO, "HARD" MINIM ERROR 
/TO ERROR EXIT 

/"SYNTX" ERROR ENCOUNTERED -- SETUP RETURN, 

/TO ERROR EXIT 
/GET UNSCALED RESULT 
/TRUNCATE 2 DIGITS 


/GET RESULT BEFORE SCALING 
/TRUNCATE 1 BIT 


/STORE RESULT FOR SCALING 
/ M=0 FOR MAXIMUM SCALING 
/M=l FOR 1 PLACE SCALING 

/"MAXIM" ERROR 

/TO ERROR EXIT 

/NOTE THAT ALL IS GOOD - SO FAR 


/M = 2 CI.E, FILLED IN BOTH DEC. PLACES)? 
/YES, NO MULTIPLY NEEDED. 

/M=l (I.E, FILLED IN ONLY 1 DEC. PLACE)? 
/YES, MULTIPLY BY 10 (M3 LOADED) 

/NO DEC. PLACES FILLED IN, MULTIPLY BY 100 

/OVERFLQ? 

/YES - MAXIM 


/OVFRFL0? 

/YES - MAXIM 
/GET ANSWER 
/WITHIN MUMPS RANGE? 
/NO - MAXIM 
/ALL OK? 

/YES, BUMP RETURN 
/GET ANSWER 
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3801 





/XDEC2 

- OUTPUT 

A DECIMAL CHARAC 

TER 


3802 





/ 





3803 





/ 

ENTER WITH DIGIT'S VALUE 

. IN THE MQ 


3804 





/ 

"REMOVE 

(TEMP STORAGE)" 

= 1 IF ZERO VALUES 


3805 





/ 

ARE TO 

BE OUTPUT. 



3806 





/ 





3807 





/ 

(IF CALLED FROM DECOIJT, 

M3 CONTAINS RMNDR FROM 1DTV) 


3808 





/ 





3809 





/ 





3810 

04235 

R 

000000 

4 

DEC2 

0 



/*12JAH17* 

3811 

04236 

R 

040217 

R 


DAC 

ACTEMP 

/SAVE THE AC 

/*12JAH17* 

3812 

04237 

R 

210005 

R 


LAC 

REMOVE 

/GET SWITCH (REMOVE USED AS TEMP 

STORAGE) 

381 3 

04240 

R 

740010 

A 


RAL 


/ZERO VALUES INTO LINK, 


3814 

04241 

R 

641002 

A 


LACQ 


/ DIGIT TO BE TYPED 


3815 

04242 

R 

740201 

A 


SZA'CMA 




3816 

04243 

R 

604246 

R 


JMP 

XDEC2A 

/*12JAH12* 


3817 

04244 

R 

744400 

A 


SNL'CLL 


/ ZERO VALUE. TYPE IT? 


3818 

04245 

R 

604253 

R 


JMP 

XDEC2B 

/*12JAH12* NO , EXIT 


3819 

04246 

R 

050005 

R 

XDEC2A 

OAC 

REMOVE 

/♦I 2 JAH1 2* YES, AND SET SWITCH 


3620 

04247 

R 

641002 

A 


LACG 




3821 

04250 

R 

313746 

R 


ADD 

(60 

/CONVERT TO 6-BIT 


3822 

04251 

R 

744000 

A 


CLL 




3823 

04252 

R 

103174 

R 


CALL 

OUT 

/OUTPUT THE CHARACTER. 


3824 

04253 

R 

200217 

R 

XDEC26 

LAC 

ACTEMP 

/*12JAH12* 


3825 

04254 

R 

624235 

R 


JMP* 

DEC2 

/ EXIT WITH THE AC RESTORED 


3826 






.EJECT 
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3827 





/XDECOUI 

5 - CONVERT BINARY 

3828 





/ 



3829 





/ 

ENTER WITH BINARY 

3830 





/ 



3831 

04255 

R 

000000 

A 

DECCUJT 

0 


3832 

04256 

R 

664000 

A 


GSM 


38 3 3 

04257 

P 

040217 

R 


DAC 

ACTE.MP 

38 34 

04260 

R 

760055 

A 


LAW 

55 

38 35 

04261 

R 

745400 

A 


SZL1CLL 


3 8 36 

04262 

R 

103174 

R 


CALL 

OUT 

3837 

04263 

R 

200217 

R 


LAC 

ACTEUP 

3 8 38 

04264 

R 

150005 

R 


DZM 

REMOVE 

3839 






.DEC 


3840 

04265 

R 

653323 

A 


I D I V; 

100000 


04266 

R 

303240 

A 




3841 

04267 

R 

104235 

R 


CALL 

DEC 2 

3842 

04270 

R 

653323 

A 


IDI V; 

10000 


04271 

R 

023420 

A 




3843 

04272 

R 

104235 

R 


CALL 

DEC2 

3844 

04273 

R 

653323 

A 


IDIV; 

1000 


04274 

R 

001750 

A 




3845 

04275 

R 

104235 

R 


CALL 

DEC 2 

3846 

04276 

R 

777777 

A 


LAW 

-1 

3847 

04277 

R 

050005 

R 


DAC 

REMOVE 

3848 

04300 

R 

200217 

R 


LAC 

AC TEMP 

38 49 

04301 

R 

653323 

A 


IDIV; 

100 


04302 

P 

000144 

A 




3850 






.OCT 


3851 

04303 

R 

104235 

R 


CALL 

DEC2 

3852 

04304 

R 

200217 

R 


LAC 

ACTEMP 

385 3 

04305 

R 

741200 

A 


SNA 


3854 

04306 

R 

624255 

R 


JMP* 

DECOUT 

3855 

04307 

R 

760056 

A 


LAW 

56 

3856 

04310 

R 

103174 

R 


CALL 

OUT 

3857 

0431 1 

R 

200217 

R 


LAC 

ACTEMP 

3858 






.DEC 


3859 

04312 

R 

653323 

A 


IDIV; 

10 


0431 3 

R 

000012 

A 




3860 






.OCT 


3861 

0431 4 

R 

104235 

R 


CALL 

DEC2 

3862 

04315 

P 

653000 

A 


LMQ'CLAC 

3863 

04316 

R 

104235 

R 


CALL 

DEC2 

3864 

0431 7 

R 

624255 

R 


JMP* 

DECOUT 

3865 






.EJECT 



TO NUMERIC STRING 
NUMBER IN THE AC 


/SIGN INTO LINK 
/SAVE ABS VALUE. 

/- 

/IS MUM NEG? 

/YES, TYPE MINUS SIGN 

/ TYPE-ZEROS -SWITCH: IF NEGATIVE 
/ ELSE IGNORE ZEROS 


/THOUSANDS CHAR POSITION. 

/HUNDREDS CHAR POSITION. 

/TENS CHAR POSITION. 

/ SET SWITCH TO TYPE ZEROS 


/UNITS CHAR POSITION. 

/IS NUMBER AN INTEGER? 
/YES, EXIT. 

/NO. 

/ TYPE DECIMAL POINT 


/TENTH'S CHAR POSITION , 

/HUNDREDTH'S CHAR POSITION. 
/EXIT, 


/*12JAH17* 

/*12JAH17* 


TYPE ZERO 
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3866 





/ 





3867 





/xqctout 

’ - CONVERT BINARY TO QC 

TAL STRING 


3868 





/ 





3869 





/ ENTER 

WITH BINARY NUMBER 

IN AC 


3870 





/ 





387 1 

04320 

R 

000000 

A 

OCTOUT 

0 



/* 1 2 JAH1 7* 

3872 

04321 

R 

040217 

R 


0 AC 

ACTEMP 

/SAVE NUMBER 

/♦12JAH17* 

3873 

0 4 3 2 2 

R 

777772 

A 


LAw 

-6 

/SIX OCTAL DIGIITS = 1 WORD 


3874 

04323 

R 

044255 

R 


DAC 

DECOI.IT 



3875 

04324 

R 

200217 

R 


LAC 

ACTEMP 



3876 

04 325 

R 

652000 

A 

OCT 2 

LMQ 




3877 

04326 

R 

750000 

A 


CLA 




3 87 8 

04327 

R 

640603 

A 


LLS 

3 

/PICK UP NEXT OCTAL 'DIGIT 


3879 

04330 

R 

723060 

A 


A AC 

60 



3880 

04331 

R 

103174 

R 


CALL 

OUT 



3881 

04332 

R 

200217 

R 


LAC 

ACTEMP 

/RETRIEVE WHAT'S LEFT OF OCTAL 

DIGITS 

3882 

04333 

R 

640603 

A 


LLS 

3 

/GET RID OF DIGIT JUST PRINTED 


3883 

04334 

R 

040217 

R 


DAC 

ACTEMP 



3884 

04335 

R. 

444255 

R 


ISZ 

DECOUT 

/ALL DIGITS PRINTED? 


3885 

04336 

R 

604325 

R 


JMP 

OCT2 

/NO 


3986 

04337 

9 

624320 

R 


JMp* 

OCTOUT 

/YES, EXIT 



3887 / 
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3889 





/XPLACE 

- PLACE 

A STEP I N'T 

0 PROGRAM STEP BUFFER 


3890 





/ 





3891 





/ 

(STEPS 

ARE HELD IN 

NUMERICAL ORDER WITH THE STEP NUMBER 

IN 

3892 





/ 

BINARY 

- 1 WORD - 

FOLLOWED BY THE REMAINDER OF THE STEP 

IN 

3893 





/ 

STRING 

FORMAT) 



3894 





/ 





3895 





/ 





3895 

04 3 40 

R 

000000 

A 

PLACE 

0 



/*12JAH17* 

3897 

04341 

R 

104645 

R 


CALL 

ochar 

/GET FIRST CHAR 

/*12JAH17* 

3898 

04342 

R 

104103 

R 


CALL 

DECIN 

/CONVERT TO MUMMERIC 


3899 

04343 

R 

603724 

R 


JMP 

SYNTAX 

/ALL ERRORS FOUND BY DECIN ARE 

ERRORS HERE. 

3900 

0 4 3 4 4 

R 

040207 

R 


DAC 

7AL 



3901 

04345 

9 

653323 

A 


IDIV? 

144 




04 346 

R 

000144 

A 






3902 

04347 

R 

741200 

A 


SNA 




3903 

04350 

R 

000014 

A 


ERR 1 4 


/ " FRACT” : STEP NUMBERS MAY NOT 

BE INTEGERS 

3904 

04351 

R 

104645 

R 


CALL 

OCHAR 



3905 

04352 

R 

553653 

R 


SAD 

(40 



3906 

04353 

R 

745000 

A 


SKP1CLL 




3907 

04354 

R 

000003 

A 


ERR 3 


/ "SYNTX" : A SPACE MUST FOLLOW 

THE STEP NUMBER 

3908 

04355 

R 

104357 

R 


CALL 

D L AC 1 

/COMPLETE PLACEMENT 


3909 

04356 

R 

624340 

R 


JMP* 

PLACE 



3910 





/ 





3911 





/ 





3912 





/XPLACl 

- COMPLETE PLACING 

A STEP INTO PROGRAM BUFFER 


3913 





/ 





3914 





/ 

USED 

BY MODIFY C 

OMMAND AS WELL AS XPLACE 


3915 





/ 





3916 

04357 

R 

000000 

A 

PLAC1 

0 



/*12JAH17* 

3917 

04360 

R 

200223 

R 


LAC 

□ PLACE 

/PQS PTR (POINTING TO SPACE) 

/*12JAH17* 

3918 

04361 

R 

553732 

R 


SAD 

(XC01 

/*12JAH14* TO 2ND CHAR? 


3919 

04362 

R 

604374 

R 


JMP 

XPLAC3 

/*12JAH14* YES 


3920 

04363 

R 

553747 

R 


SAD 

(XCO? 

/♦12JAH14* TO 2ND CHAR? 


3921 

04364 

P 

60437 1 

R 


JMP 

XPLAC2 

/M2JAH14* YES 


3922 

04365 

R 

200221 

R 


LAC 

I PLACE 

/* 1 2 JAH1 4* NO, 1ST CHAR (POINTING TO EOM) 

3923 

04366 

R 

553727 

R 


SAD 

( XCI 3 

/*12JAH14* LAST PTR TO 1ST CHAR 


3924 

04367 

R 

604374 

R 


JMP 

XPLAC3 

/*12JAH14* YES 


3925 

04370 

R 

604373 

R 


JMP 

XPLAC4 

/*12JAH14* HO 


3926 

04371 

R 

200221 

R 

XPLAC2 

LAC 

I PLACE 

/*12JAH14* LAST PTR 


3927 

04372 

p 

553730 

R 


SAD 

(XCIt 

/*12JAH14* TO 2ND CHAR? 


3928 

04373 

R 

751030 

A 

XPLAC4 

CLA1IAC 

ISKP 

/♦12JAH14* YES 


3929 

04374 

R 

750000 

A 

XPLAC3 

CLA 


/M2JAH14* 


3930 

04375 

R 

340222 

R 


TAD 

□ POINT 

/*12JAH14* UPDATE WORD 


3931 

04376 

R 

740031 

A 


CM A 1 1 AC 


/*12JAH14* PTR 


3932 

04377 

R 

340220 

R 


TAD 

IPOINT 

/*12JAH14* 


3933 

04400 

R 

513702 

R 


AND 

(77 



3934 

04401 

R 

553702 

R 


SAD 

(77 



3935 

04402 

R 

750000 

A 


CLA 




3936 

04403 

R 

044645 

R 


DAC 

OCHAR 

/ LENGTH OF NEW STEP 


3937 

04404 

R 

744001 

A 


CMAiCLL 




3938 

04405 

R 

044725 

R 


DAC 

ICHARI 



3939 

04406 

R 

220145 

R 


LAC * 

LVAR 

/ GET STEP NUMBER OF STEP BEING 

EXECUTED 
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3940 

04407 

p 

540207 

R 


SAD 

VAL 

3941 

04410 

R 

000015 

A 


ERR 15 


3942 








3943 

0441 1 

R 

200134 

R 


LAC 

BUFF 

3944 

04412 

P 

040014 

A 


DAC 

R 1 4 

3945 

0441 3 

R 

1 40652 

R 


DZM 

SWAPSW 

3946 

0 4 41 4 

R 

220014 

A 

XPLAC5 

LAC * 

R14 

3947 

04415 

R 

653606 

A 


LMQ1CLAC 

: « LLS + 6 

3948 

04416 

R 

300014 

A 


ADD 

R 1 4 

3949 

04417 

R 

040014 

A 


DAC 

R14 

3950 

04420 

R 

540167 

R 


SAD 

END 

3951 

04421 

R 

604516 

R 


JMP 

APPEND 

3952 

04422 

R 

220014 

A 


LAC* 

R 1 4 

3953 

04423 

R 

740001 

A 


CMA 


3954 

04424 

R 

300207 

R 


ADD 

VAL 

3955 

04425 

R 

740101 

A 


SMA 1 CMA 


3956 








3957 

04426 

R 

604414 

R 


JMP 

XPLAC5 

3958 

04427 

R 

744200 

A 


SZA'CLL 


3959 

04430 

R 

604535 

R 


JMP 

INSERT 

3960 

04431 

R 

200014 

A 


LAC 

R14 

3961 

04432 

R 

040015 

A 


DAC 

R15 

3962 

04433 

R 

220015 

A 


LAC* 

R15 

3963 

044 34 

R 

653606 

A 


LMOiCLAC 

!!LLS + 6 

3964 

04435 

R 

300015 

A 


ADD 

R15 

3965 

04436 

R 

540167 

R 


SAD 

END 

3966 

04437 

R 

604527 

R 


JMP 

PLACER 

3967 

04440 

R 

040015 

A 


0 AC 

*15 

3968 

04441 

R 

740031 

A 


CM A 1 1 AC 


3969 

04442 

R 

300014 

A 


ADD 

R 1 4 

3970 

04443 

R 

304645 

R 


ADD 

OCHAR 

3971 








3972 

04444 

R 

740100 

A 


SMA 


3973 

04445 

R 

604542 

R 


JMP 

PLACES 

3974 

04446 

R 

204645 

R 

PLACET 

LAC 

OCHAR 

3975 

04447 

R 

444725 

R 


ISZ 

ICHARI 

3976 

04450 

R 

604453 

R 


JMP 

PLAC3A 

3977 

04451 

R 

604473 

R 


JMP 

PLACES 

3978 

04452 

R 

104660 

R 

PLACE3 

CALL 

□CHARI 

3979 

04453 

R 

640706 

A 

PLAC3A 

ALS 

6 

39R0 

04454 

R 

044645 

R 


DAC 

OCHAR 

3981 

04455 

R 

104660 

R 


CALL 

OCHARI 

3982 

04456 

R 

244645 

R 


XOR 

OCHAR 

398 3 

0M57 

R 

640706 

A 


ALS 

6 

3984 

04460 

R 

044645 

R 


DAC 

OCHAR 

3985 

04461 

R 

104660 

R 


CALL 

OCHARI 

3986 

04462 

R 

244645 

R 


XOR 

OCHAR 

3987 

04463 

R 

060014 

A 


DAC* 

R 1 4 

3988 

04464 

R 

444725 

R 


ISZ 

ICHARI 

3989 

04465 

R 

604452 

R 


JMP 

PLACE3 

3990 

04466 

R 

104660 

R 


CALL 

OCHARI 

3991 

04467 

R 

741200 

A 


SNA 



/ CO IF IN DIRECT 'ODE) 

/ "STEPS" : THE STEP BEING EXCUTED CAN'T 
/ BE REPLACED 

/ NO, START AT THE BEGINNING OF THE STEP SUFFER 
/ YES 

/INHIBIT SWAP DURING PROG UPDATE 

/OFFSET OF THIS STEP 

/ POINTING TO NEXT STEP NUMBER NOW 
/ END OF STEP BUFFER? 

/ YES, APPEND NEW STEP TO END OF BUFFER 
/ NO, GET NEXT STEP'S NUMBER 


/ IS OLD STEP'S NUMBER (* 14) = OR > 
/NEW ONE C VAL ) ? 

/NO KEEP LOOKING 
/ YES 

/ QLO>NEW : GO INSERT NEW STEP 
/ OLD=NEW: REPLACE OLD STEP WITH NEW 


/ < AC > BECOMES OFFSET OF OLD STEP 


/REPLACE LAST STEP IN STEP BUFFER 
/<15>=<14>+1+QFFSET 

/ FORMS NEGATIVE LENGTH OF OLD STEP 
/ FORMS DIFFERENCE IN LENGTH BETWEEN 
/OLD AND NEW 

/ IS OLD STEP LONGER THAN NEW? 

/ NO; GO MAKE ROOM FOR NEW STEP 
/ YES; PLACE NEW STEP INTO BUFFER 
/ <ICHARI>=NEGATIVE LENGTH OF NEW STEP 
/*t 2JAH12* 

/ONE CHARACTER STEP 

/ PLACE NEW STEP INTO STEP BUFFER 

/M2JAH12* 


/*i2JAH14* LAST WORD? 

/NO 

/YES 

/ ANY MORE CHARACTERS? 
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3992 

04470 

R 

604476 

R 


JMP 

PLACE4 

/ NO, ITS AN EQM 

3993 

04471 

R 

640706 

A 


ALS 

6 

/YES 

3994 

04472 

R 

044645 

R 


DAC 

□CHAR 


3995 

04473 

R 

104660 

R 

PLACES 

CALL 

□CHARI 


3996 

04474 

R 

244645 

R 


XOR 

OCHAR 


3997 

0 4 4 7 5 

R 

640706 

A 


ALS 

6 


3998 

04476 

R 

060014 

A 

PLACE4 

DAC * 

R 1 4 


3999 

04477 

R 

200015 

A 


LAC 

R 1 5 


4000 

04500 

ft 

540014 

A 


SAD 

R 1 4 

/EXACT FIT? 

4001 

04501 

R 

604512 

R 


JMP 

PLAC4B 

/* 1 2 J Aril 2* YES 

4002 

04502 

R 

540167 

R 


SAD 

END 

/NO 

4003 

0450 3 

ft 

604510 

R 


JMP 

PLAC4A 

/* 1 2 JAH1 2* MOVE UP 

40 0 4 

04504 

R 

220015 

A 


LAC* 

R15 


4005 

04505 

R 

060014 

A 


DAC* 

R14 


4006 

04506 

R 

200015 

A 


LAC 

ft t 5 


4007 

04507 

R 

604502 

R 


JMP 

.-5 


4009 

0451 0 

R 

200014 

A 

PLAC4A 

LAC 

R 1 4 

/*12JAH12* 

4009 

0451 1 

ft 

103744 

R 


CALL 

STOR1 


4010 

04512 

R 

440652 

R 

PLAC4B 

ISZ 

SWAPSW 

/* 1 2 JAH1 2* TIME SLICE UP? 

4011 

04513 

R 

624357 

R 


J M P * 

PL AC 1 

/NO 

4012 

0451 4 

R 

101533 

R 


JMS 

HANG 

/YES, LET SOMEONE ELSE RUN 

4013 

04515 

R 

624357 

R 


JMP* 

PL AC 1 


4014 

04516 

R 

200014 

A 

APPEND 

LAC 

R14 

/APPEND 

4015 

04517 

R 

304645 

R 


ADD 

OCHAR 


4016 

04520 

ft 

723002 

A 


AAC 

2 


4017 

04521 

R 

040015 

A 


DAC 

R 1 5 


4018 

04522 

R 

103744 

R 


CALL 

STOR1 


4019 

04523 

ft 

200207 

R 


LAC 

VAL 


4 0 20 

04524 

R 

060014 

A 


DAC* 

R 1 4 


4021 

04525 

R 

604446 

R 


JMP 

PLACE7 


4022 

04526 

R 

060014 

A 


DAC* 

R14 


4023 

04527 

R 

200014 

A 

PLACES 

LAC 

R14 


4024 

04530 

R 

304645 

R 


ADD 

OCHAR 


4025 

045 31 

R 

740030 

A 


1 AC 



4026 

04532 

R 

040015 

A 


DAC 

R 1 5 


4027 

04533 

R 

103744 

R 


CALL 

STOR1 


4028 

04534 

R 

604446 

R 


JMP 

PL ACE 7 


4029 

04535 

R 

200014 

A 

INSERT 

LAC 

R 1 4 

/INSERT 

4030 

04536 

R 

040015 

A 


DAC 

R 1 5 


4031 

04537 

R 

204645 

R 


LAC 

OCHAR 


4032 

04540 

R 

313705 

R 


ADD 

C 2 


4033 

04541 

R 

741000 

A 


SKP 



4034 

04542 

R 

440015 

A 

places 

ISZ 

R 1 5 


4035 

04543 

R 

044660 

R 


DAC 

OCHAR I 


4036 

04544 

R 

200167 

R 


LAC 

END 


4037 

04545 

R 

045103 

R 


DAC 

UNSAVE 


4038 

04546 

R 

304660 

P 


ADD 

OCHARI 


4039 

04547 

R 

103744 

R 


CALL 

ST0R1 

/ RTN WITH <AC>=END 

4040 

04550 

R 

045040 

R 

mqvedn 

DAC 

SAVE 


4041 

04551 

R 

225103 

R 


LAC* 

UNSAVE 


4042 

04552 

R 

065040 

R 


DAC* 

SAVE 


4043 

04553 

R 

777776 

A 


LAw 

-2 
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4044 

04554 

R 

305103 

R 


ADD 

UNSAVE 

4045 

04555 

R 

045103 

R 


DAC 

UN SAVE 

4046 

04556 

R 

540015 

A 


SAD 

R15 

4047 

04557 

R 

604562 

R 


JMP 

MOVDl 

4048 

04560 

R 

304660 

R 


ADD 

□CHARI 

4049 

04561 

R 

604550 

R 


JMP 

MOVEDN 

4050 

04562 

R 

304660 

R 

mv di 

ADD 

OCHARI 

4051 

04563 

R 

045040 

R 


DAC 

SAVE 

4052 

04564 

R 

313712 

R 


ADD 

(777776 

4053 

04565 

R 

040015 

A 


DAC 

R15 

4054 

04566 

R 

225103 

R 


LAC* 

UNSAVE 

4055 

04567 

R 

065040 

R 


DAC* 

SAVE 

4056 

04570 

R 

200207 

R 


LAC 

VAL 

4057 

04571 

» 

065103 

R 


DAC* 

UNSAVE 

4058 

4059 

04572 

R 

604446 

R 


JMP 

.EJECT 

PLACE7 


/15= OCTAL STEP # 

/* 1 2 JAH 12* 

/*12JAH12* 

/-2, REALLY -1 ( WHAT CLUTZ WROTE THIS?) 
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FOR INTERPRETER 



4060 






. IFPNZ 

MODIFY 



4061 





/ 





4062 





/ 





4063 





/ X m B U F 2 

- MOVE STEP FROM 

PARTITION TO STRING BUFFER 


4064 





/ 





4065 





/ 





4066 

04573 

R 

000000 

A 

M 6 U F 2 

0 



/*12JAH17* 

4067 

04574 

R 

040017 

A 


0 AC 

R 1 7 

/START OF OLD LQC 

/*1 2 JAH1 7* 

4 0 6 8 

04575 

R 

220017 

A 


LAC * 

R 1 7 



4069 

04576 

R 

653606 

A 


LMOiCLAC 

! 1 LLS + 6 



4070 

04577 

R 

040214 

R. 


DAC 

M 

/STEP COUNT 


4071 

04600 

R 

340017 

A 


TAD 

R 1 7 



4072 

04601 

R 

040014 

A 


DAC 

R14 

/END OF OLD LOG 


4073 

04602 

R 

200017 

A 


LAC 

R 1 7 



4074 

04603 

R 

723776 

A 


AAC 

-2 



4075 

04604 

R 

040017 

A 


DAC 

R17 

/SET UP AUTO-INDEX 


4076 

04605 

R 

200133 

R 


LAC 

8UFF2 

/START OF STRING BUFFER 


4077 

04606 

R 

723777 

A 


AAC 

- 1 



4078 

04607 

R 

040015 

A. 


DAC 

R15 



4079 

04610 

R 

220017 

A 

MS&UF 

LAC * 

R17 

/MOVE WORD 


4080 

0461 1 

R 

060015 

A 


DAC* 

R15 



4081 

04612 

R 

200017 

A 


LAC 

R 1 7 



4082 

04613 

R 

540014 

A 


SAD 

R14 

/DONE? 


4083 

04614 

R 

624573 

R 


JMP* 

MBUF2 

/ if ES 


4084 

04615 

R 

604610 

R 


JMP 

MS8UF 

/NO 


4085 





/ 





4086 





/ 





4087 





/XERMOQ 

- ERASE 

STEP FROM 

PARTITION 


4088 





/ 





4089 





/ 





4090 

0461 6 

R 

000000 

A 

ERMQD 

0 



/* 1 2 JAH 1 7* 

4091 

0461.7 

R 

040207 

R 


DAC 

VAL 

/SAVE STEP # 

/*12JAH17* 

4092 

04620 

R 

105123 

R 


CALL 

STEP 

/FIND IT 


4093 

0 4621 

R 

777777 

A 


LA'w 

-1 



4094 

04622 

R 

340016 

A 


TAD 

R 1 6 



4095 

04623 

R 

040014 

A 


DAC 

R14 

/START OF STEP 


4096 

04624 

R 

220016 

A 


LAC* 

R16 



4097 

04625 

R 

653606 

A 


LMQ'CLAC 

’ LLS+6 

/STEP COUNT 


4098 

04626 

R 

340016 

A 


TAD 

R 1 6 



4099 

04627 

R 

040015 

A 


DAC 

R15 

/END OF STEP 


4100 

04630 

R 

140652 

R 


DZM 

SWAPSW 

/INHIBIT SWAP DURING PROG 

UPDATE 

4101 

04631 

R 

540167 

R 

ER55 

SAD 

END 

/DONE? 


4102 

04632 

R 

604637 

R 


JMP 

ER6 

/YES 


4103 

04633 

R 

220015 

A 


LAC* 

R15 

/MOVE NEXT 


4104 

04634 

R 

060014 

A 


DAC* 

R14 

/WORD UP IN PARTITION 


4105 

04635 

R 

200015 

A 


LAC 

R15 



4106 

046 36 

R 

604631 

R 


JMP 

ER55 



4107 

04637 

R 

200C14 

A 

ER6 

LAC 

R 1 4 

/RESET ” END " 


4108 

04640 

R 

103744 

R 


CALL 

5T0R1 



4109 

04641 

R 

440652 

R 


ISZ 

SWAPSW 

/TIME SLICE UP? 


411 0 

0464? 

R 

624616 

R 


JMP* 

ERMOD 

/NO 


4111 

04643 

R 

101533 

R 


JMS 

HANG 

/ If ES , LET SOMEONE ELSE RUN 
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4112 

4113 

04644 f 

l 62461b R 

/ 

JMP* SRMOD 

4114 




. ENDC 

4115 




. EJECT 
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4116 





/XCHAR - 

LOAD A CHARACTER 

USING OPOINT & OPLACE 


4117 





/ 





4119 





/ OPOINT 

' CONTAINS PTR TO 

WORD CONTAINING CHARACTER 


4119 





/ OPLACE 

: CONTAINS (XC01, 

( XC02 , OR ( XCQ3 DEPENDING ON WHETHER THE 


4120 





/ chara 

CTER JUST EXTRACTED WAS THE FIRST, 

SECOND OR THIRD RESPECTIVELY 

4121 





/ IN THE WORD POINTED TO 

BY OPOINT 



4122 





/ 





412 3 

04645 

R 

oooooo 

A 

□CHAR 

0 


/* 1 

2 JAHI 7* 

4124 

04646 

P 

220222 

R 


LAC * OPOINT 

/FETCH ALL 

3 CHARS OF WORD /*1 

2JAH17* 

4125 

04647 

R 

744000 

A 


CLL 

/*!2JAH14* 

LINK MUST BE CLEAR UPON 

EXIT 

4126 

04650 

R 

420223 

R 


XCT* OPLACE 

/*1 2 JAH1 4* 

PICK & EXTRACT CHAR 


4127 

04651 

R 

624645 

R 


JMP* QCHAR 

/* 1 2 JAHI 4* 

3RD CHAR 


4129 

04652 

R 

742020 

A 


RTR ? RTR ? RTR 

/* 1 2 JAH1 4* 

2ND CHAR 



0^653 

R 

742020 

A 







04654 

R 

742020 

A 






4129 

04655 

R 

513702 

R 


AND (77 

/* 1 2 JAH1 4* 

REMOVE EXTRANEOUS BITS 


4130 

04656 

R 

744000 

A 


CLL 

/*12JAH14* 

LINK MUST 3E CLEAR UPON 

EXIT 

4131 

04657 

R 

624645 

R 


J MP* OCHAR 

/*12JAH14* 



4132 





/ 





4133 





/ 





41 34 





/ 





4135 

A 1 U 





/XCHARI 

/ 

- INDEX AND LOAD 

A CHARACTER USING 

OPOINT AND OPLACE 


4137 

04660 

R 

oooooo 

A 

/ 

□CHARI 

0 


/*1 

2 JAHI 7 * 

4138 

04561 

R 

440223 

R 


ISZ OPLACE 

/ADVANCE TC 

1 NEXT CHAR POS /*1 

2JAHT7* 

4139 

04662 

0 

220222 

R 


LAC* OPOINT 

/* 1 2 JAH1 4* 

FETCH ALL 3 CHARS OF WORD 

4140 

04663 

R 

744000 

A 


CLL 

/*12JAH14* 

LINK MUST 3E. CLEAR UPON 

EXIT 

4141 

04664 

R 

420223 

R 


XCT* OPLACE 

/*! 2JAH14* 

SELECT CHAR POS & EXTRACT CHAR 

4142 

04665 

R 

624660 

o 


JMP* OCHAR I 

/*12JAH14* 

3RD CHAR 


4143 

04666 

R 

747420 

A 


SZLiRTRICLL 

/*12JAH14* 

MIDDLE CHAR? 


4144 

04667 

R 

604675 

R 


JMP XCH2 

/* 1 2 JAH1 4* 

NO, ADVANCE OPOINT 


4145 

0 4670 

R 

742020 

A 


RTR ; RTR 

/*12JAH14* 

YES 



04671 

R 

742020 

A 






4146 

04672 

R 

513702 

R 


AND (77 

/*12JAH14* 

REMOVE EXTRANEOUS BITS 


4147 

04673 

R 

744000 

A 


CLL 

/*12JAH14* 

LINK MUST BE CLEAR UPON 

EXIT 

4148 

04674 

R 

624660 

R 


JMP* QCHARI 

/*12JAH14* 



4149 

04675 

R 

440222 

R 

XCH2 

ISZ OPOINT 

/* 1 2 JAH1 4* 

ADVANCE TO NSW SORD 


4150 

04676 

R 

213732 

p 


LAC (XC01 

/* 1 2 JAH1 4* 

POSITION TO 


4151 

046 77 

R 

040223 

R 


DAC OPLACE 

/*1 2 JAH1 4* 

FIRST CHAR 


4152 

04700 

R. 

22022? 

R 


LAC* OPOINT 

/* 1 2 JAHi 4* 

FETCH NEW WORD 


4153 

04701 

R 

653606 

A 


CLAC 1LMQ1LLS+6 

/* 1 2 JAH1 4* 

SHIFT IN LEFTMOST CHAR 


4154 

04702 

R 

744000 

A 


CLL 

/*12JAH14* 



4155 

04703 

R 

624660 

R 


JMP* QCHARI 

/*1 2 JAHI 4* 



4156 





/ 





4157 

04704 

R 

653606 

A 

XC01 

CLACiLMGILLS+6 

/♦12JAH14* 

EXTRACT 1ST CHAR 


4158 

04 705 

R 

745000 

A 

XC02 

SKPiCLL 

/*12JAH14* 

EXTRACT 2ND CHAR 


4159 

04706 

R 

513702 

R 

XC03 

AND (77 

/* 1 2 JAHI 4* 

EXTRACT 3RD CHAR 


4160 

0 4 7 0 7 

R 

745002 

A 

XC04 

SKP1STL 

/*1 2JAH14* 

ADVANCE TO 1ST CHAR OF NEXT WORD 


4161 / 

4162 


EJECT 
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4163 





/ 



4164 





/XSBOPT 

- BACKSPACE ONE CHARA 

4165 





/ 



4166 

04710 

R 

000000 

A 

SUBOPT 

0 


4167 

0471 t 

R 

min 

A 


LAW 

-t 

4168 

0471.2 

R 

340223 

R 


TAD 

□PLACE 

4169 

04713 

R 

553750 

R 


SAD 

(XCOl-1 

417 0 

04 7 1 4 

R 

604717 

R 


JMP 

XSBOP1 

4171 

04715 

R 

040223 

R 


DAC 

□PLACE 

4172 

04716 

R 

624710 

R 


JMP* SUBOPT 

4173 

04717 

R 

111111 

A 

XSBOP1 

LAW 

-1 

417 4 

04 7 20 

R 

340222 

n 

K 


TAD 

□POINT 

4175 

04721 

R 

040222 

R 


DAC 

□POINT 

4176 

04722 

R 

213736 

R 


LAC 

(XC03 

4177 

04723 

R 

040223 

R 


DAC 

□PLACE 

4178 

04724 

R 

624710 

R 


JMP* 

SUBOPT 

41 79 





/ 



4180 






.EJECT 



TER 

/* 1 2 JAH1 7* 

/MOVE /*12JAH17* 

/*1 2 JAH1 4* CHAR POSITION 

/* 1 2 JAH1 4t BACK 1. STILL IN SAME WORD? 

/* 1 2 JAH1 4* NO 
/*12JAH14* VES 
/* 1 2 JAH1 4* 

/*1 2JAH1 4* MOVE WORD 
/* 1 2 JAHi 4* PTR BACK 
/♦12JAH14* ONE 
/* 1 2 JAH1 4* POINT TO 
/♦12JAH14* 3RD CHAR 
/♦12JAH14* 
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4181 / 

4182 /XICHARI - INDEX AMD DEPOSIT A CHARACTER USING IPOINT AMD IPLACE 

4 1 S 3 / 

4384 / IPOINT CONTAINS PTR TO WORD TO CONTAIN CHARACTERS 


4185 





/ iplac 

E CONTAINS ( XCI 1 

4186 





/ char 

TO BE DEPOSITED 

4187 





/ RESPECTIVELY 

OF THE 

4188 





/ 



4189 

04725 

R 

000000 

A 

ICHARI 

0 


4190 

04726 

R 

620221 

R 


JMP* 

IPLACE 

4191 

04727 

R 

746020 

A 

IENTO 

CLLIRTR 

; RTR ? 


04730 

R 

742020 

A 





04731 

R 

742020 

A 





047 32 

R 

740020 

A 




4192 

04733 

R 

652000 

A 


LMQ 


4193 

04734 

R 

213730 

R 


LAC 

(XCIl 

4194 

04735 

R 

040221 

R 


QAC 

IPLACE 

4195 

04736 

R 

440220 

R 


1SZ 

IPOINT 

4196 

04737 

R 

220220 

R 


LAC* 

IPOINT 

419 7 

04740 

R 

513645 

R 


AND 

(7777 

4198 

04741 

R 

640002 

A 


OMQ 


4199 

04742 

R 

060220 

R 


DAC* 

IPOINT 

4200 

04743 

R 

624725 

R 


JMP* 

ICHARI 

4291 

04744 

R 

440221 

R 

IEMTl 

1SZ 

IPLACE 

4202 

04745 

R 

746010 

A 


CLLIRTL 

; RTL ? 


04746 

R 

742010 

A 





04747 

R 

742010 

A 




4203 

04750 

R 

652000 

A 


LMQ 


4204 

04751 

R 

770077 

A 


LAW 

-7701 

4205 

04752 

R 

520220 

R 


AND* 

IPOINT 

420b 

04753 

R 

640002 

A 


OMQ 


4207 

04754 

R 

060220 

R 


DAC* 

IPOINT 

4 20 8 

04755 

R 

624725 

R 


JMP* 

ICHARI 

4209 

04756 

R 

440221 

R 

IENT2 

ISZ 

IPLACE 

4210 

04757 

R. 

652000 

A 


LMQ 


421 1 

04760 

R 

777700 

A 


LAW 

- 1 00 

4212 

04761 

R 

520220 

R 


AND* 

IPOINT 

4213 

04762 

R 

640002 

A 


OMQ 


4214 

04763 

R 

060220 

R 


DAC* 

IPOINT 

4215 

04764 

R 

624725 

R 


JMP* 

ICHART 

421b 





/ 



4217 

04765 

R 

604744 

R 

XCI1 

JMP 

IENT1 

4218 

04766 

R 

604756 

R 

XCI2 

JMP 

I E M T 2 

4219 

04767 

R 

604727 

R 

XCI3 

JMP 

IENTO 

4220 





/ 



4221 






.EJECT 



, (XCI2, CXCI3 DEPENDING ON WHETHER THE NEXT 
SHOULD GO INTO THE 1ST , 2ND, OR 3RD CHAR 
WORD . 

/♦12JAH17* 

/SELECT CHAR POSITION /*12JAH17* 

RTR ? RAR /*1 2 JAH1 4* POS CHAR IN LEFTMOST FIELD 


/*12JAH14* STATCH IT AWAY 
/* 1 2 JAH1 4* SET UP 
/*12JAH14* NEXT CHAR POS 
/*12JAH14* ADVANCE TO NEXT WORD 
/*12JAH14* FETCH CHARS 
/* 1 2 JAH1 4* SAVE REST OF WORD 
/*12JAH14* INSERT NEW CHAR 
/*12JAH14* RETURN TO TARGET WORD 
/*12JAH14* 

/*12JAH14* ADVANCE CHAR POS 
RTL /*12JAH14* POS CHAR IN MIDDLE FIELD 


/* 3 2 JAH1 4* STATCH IT AWAY 
/*t2JAH14* SAVE OLD 1ST & 
/*12JAH14* 3RD CHARS 
/ * 1 2 J A H 1 4 * INSERT NEW CHAR 
/*12JAH14* RETURN TO TARGET WORD 
/♦12JAH14* 

/ * 1 2 J AH 1 4* ADVANCE CHAR POS 
/*12JAH14* STATCH IT AWAY 
/*12JAH14* SAVE OLD 1ST & 

/* 1 2 J AH 1 4* 2ND CHARS 
/* 1 2 JAH1 4* INSERT NEW CHAR 
/♦12JAH14* RETURN TO TARGET WORD 
/♦12JAH14* 

/* 1 2 JAH1 4* 2ND CHAR 
/* 1 2 JAH1 4* 3RD CHAR 
/*12JAH14* 1ST CHAR 
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4222 





/ 





4223 





/ XC H AR 1 

- INDEX AND LOAD A CHARA 

,CTER USING POINTI AND PLACE1 


4224 





/ 


(SIMILAR TO XCHARI) 



4225 





/ 





4226 





/ 

CALL 

CHARI 



4227 





/ 

(RETURN IF CHAR SAME AS 

TEMPI ) 


4278 





/ 

(RETURN OTHERWISE) 



4229 





/ 





4230 

04770 

R 

000000 

A 

CHARI 

0 



/*12JAH17* 

4231 

04771 

R 

440226 

R 


ISZ 

PLACE1 

/ADVANCE TO NEXT CHAR PDS 

/* 12JAH1 7* 

4232 

04772 

R 

220225 

R 


LAC* 

P0INT1 

/* 1 2 JAH1 4* FETCH ALL 3 CHARS 


4233 

04773 

R 

420226 

R 


XCT* 

PLACE1 

/* 1 2 JAH3 4* SELECT CHAR POS & 

EXTRACT CHAR 

42 34 

04774 

R 

605010 

R 


JMP 

XCH1.2 

/ * 1 2JAH14* CHECK FOR TEMPI 


4235 

04775 

R 

747420 

A 


SZL1 

RTRiCLL 

/* 1 2 JAH1 4* MIDDLE CHAR? 


4236 

04776 

R 

605003 

R 


JMP 

XCH1.1 

/* 1 2 JAH1 4* NO, ADVANCE POINTI 


42 37 

04777 

R 

742020 

A 


RTR 

; RTR 

/* 1 2 JAH1 4* YES 



05000 

R 

742020 

A 






4238 

05001 

R 

513702 

R 


AND 

(77 

/* 3 2 JAH1 4* REMOVE EXTRANEOUS 

BITS 

4239 

05002 

R 

605010 

R 


JMP 

XCH1.2 /* i 2 J AH1 4* CHECK FOR TEMPI 


4240 

05003 

R 

440225 

R 

XCH1.1 

ISZ 

pointi 

/* 1 2 JAH1 4* ADVANCE TO H £W WORD 

4241 

05004 

R 

213732 

R 


LAC 

(XCOl 

/♦12JAH14* POSITION TO 


42 42 

05005 

R 

040226 

R 


DAC 

PL AC El 

/*1 2 JAH1 4* FIRST CHAR 


4243 

05006 

R 

220225 

R 


LAC* 

pointi 

/*12JAH14* FETCH NEW WORD 


424 4 

05007 

R 

653606 

A 


CLAC 

1LMQ! LLS+6 

/*12JAH14* SHIFT IN LEFTMOST 

CHAR 

4245 

05010 

R 

540224 

p 

XCH1.2 

SAD 

TEMPI 

/* 1 2 J AH1 4* 


42 46 

0501 1 

R 

624770 

R 


JMP* 

CHARI 

/*! 2 JAH14* SAME AS TEMPI 


4247 

05012 

R 

444770 

R 


ISZ 

CHARI 

/*12JAH14* 


4248 

0501 3 

R 

624770 

R 


JMP* 

CHARI 

/*12JAH14* CHAR NOT THE SAME 



4249 / 

4250 , EJECT 
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4251 





/ 






4252 





/XCHAR2 

- INDEX 

AND LOAD 

A CHARACTER USING 

POINT2 AND PLACE2 


4253 





/ 


(SIMILAR 

TO XCHAR1) 



4254 





/ 






4255 





/ 

CALL CHAR2 




4256 





/ 

(RETURN 

IF CHAR 

SAME AS TEMP2 ) 



4257 





/ 

(RETURN 

IP CHAR 

OTHERWISE) 



4258 





/ 






4259 

05014 

R 

000000 

A 

CHAR2 

0 




/* 1 2 JAHi 7* 

4260 

0501 5 

R 

440231, 

R 


ISZ 

PLACE2 

/ADVANCE TO NEXT CHAR P3S 

/*12JAH17* 

4261 

05016 

R 

220230 

R 


LAC* 

P. 0 1 N T 2 

/*! 2JAH14* 

FETCH ALL 3 CHARS 


4262 

05017 

r\ 

420231 

R 


\/ r* * 
Ati' 1 ' 

PLACE/ 

/*12JAH14* 

SELECT CHAR POS St 

EXTRACT CHAR 

*263 

05020 

R 

605034 

R 


JMP 

XCH2 , 2 

/*12JAH14* 

CHECK FOR TEMP 2 


4264 

05021 

R 

747420 

A 


SZL1RTR! 

CLL 

/* 1 2 JAH1 4* 

MIDDLE CHAR? 


4265 

05022 

R 

605027 

R 


JMP 

XCH2.1 

/*! 2 JAH1 4* 

NO, ADVANCE POINT2 


4266 

05023 

R 

742020 

A 


RTR ; RTR 

/* 1 2 JAH1 4* 

YES 



05024 

R 

742020 

A 







4267 

05025 

R 

513702 

R 


AND 

(77 

/* 1 2 JAH1 4* 

REMOVE EXTRANEOUS 

BITS 

4268 

05026 

P 

605034 

R 


JMP 

XCH2.2 

/* 1 2 JAH1 4* 

CHECK FOR TEMP 2 


4269 

05027 

R 

440230 

R 

XCH2. 1 

ISZ 

POINT2 

/ * 1 2 JAH 1 4* 

ADVANCE TO NEW SQRD 

4270 

05030 

R 

213732 

R 


LAC 

(XCOl 

/*12JAH14* 

POSITION TO 


4271 

05031 

R 

040231 

R 


DAC 

PLACE2 

/* 1 2 JAH1 4* 

FIRST CHAR 


4272 

050 32 

R 

220230 

R 


LAC* 

POINT2 

/*12JAH14* 

FETCH NEW 3WRD 


427 3 

05033 

R 

653606 

A 


CLAC1LMG 

! 1 LLS + 6 

/*1 2 JAH1 4* SIFT IN 

LEFTMOST CHAR 


4274 

05034 

R 

540227 

R 

XCH2.2 

SAD 

TEMP2 

/* 1 2 JAH1 4* 



4275 

05035 

R 

625014 

R 


JMP* 

CHAR2 

/* 1 2 JAH1 4* 

SAME AS TEMP2 


4276 

05036 

R 

445014 

R 


ISZ 

CHAR2 

/* 1 2 JAH1 4* 



4277 

05037 

R 

625014 

R 


JMP* 

CHAR2 

/ * 1 2 JAH 1 4* 

CHAR NOT THE SAME 


4278 





/ 






4279 
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PAGE 118 

MUMPS 

10 0 ■ 

SUBROUTINES 

FOR INTERPRETER 


4280 





/XSAVE - 

• PUSH ITEM ON THE 

STACK 

4281 





/ 




4282 





/CALLING 

; sequence: : : 


428 3 





/ 




4284 





/ 

LAW 

-M ///COUNT OF ITEMS TO GO ONTO STACK 

4285 





/ 

CALL 

SAVE 


4286 





/ 

LAC 

THIS 


4287 





/ 

LAC* 

THAT 


4288 





/ 

... OR 

ANY 1NSTRUC 

TION THAT PUTS A VALUE INTO THE ACCU 

4289 





/ 

LAC 

N-TH ITEM 


4290 





/ 

...RETURNS TO THIS 

LOCATION. . . 

4291 





/ 




4292 

05040 

R 

000000 

A 

save: 

0 



4293 

05041 

R 

045103 

R 


0 AC 

UNSAVE 

/SAVE ITEM COUNT 

4294 

05042 

R 

777777 

A 

sback 

LAW 

-1 


4295 

05043 

R 

340166 

R 


TAD 

SPQIWT 

/GET STACK POINTER AND 

4296 

05044 

R 

540170 

R 


SAD 

SYMBEG 

/CHECK FOR END OF STACK BUFFER 

4297 

05045 

R 

605060 

R 


JMP 

exist 


4299 

05046 

R 

425040 

R 

S2BACK 

XCT* 

SAVE 

/GET ITEM FOR STACK. 

4299 

05047 

R 

445040 

R 


ISZ 

SAVE 

/BUMP FOR NEXT ITEM OR RETURN. 

4300 

05050 

R 

060166 

R 


DAC* 

SPOIWT 

/SAVE ITEM ON STACK AND 

4301 

05051 

R 

440166 

R 


ISZ 

S POINT 

/BUMP STACK PTR . 

4302 

05052 

R 

777775 

A 


LAW 

-3 

/3 LESS CHARACTERS 

4 30 3 

05053 

R 

360146 

R 


TAD* 

SVAR 

/AVAILABLE FOR USER'S 

4304 

05054 

R 

060146 

R 


DAC* 

SVAR 

/PARTITION 

4305 

05055 

R 

445103 

R 


ISZ 

UNSAVE 

/BUMP ITEM COUNT. 

4306 

05056 

R 

605042 

R 


JMP 

SBACK 

/CONTINUE. 

4307 

05057 

R 

625040 

R 


JMP* 

SAVE 

/FINISHED, RETURN. 

4308 

05060 

R 

200165 

R 

EXIST 

LAC 

STACK 


4 30 9 

05061 

R 

540167 

R 


SAD 

END 

/OUT OF SPACE? 

4310 

05062 

R 

000016 

A 


ERR16 


/YES, "STACK" ERROR 

4311 

05063 

R 

046621 

R 


DAC 

CONT 

/NO 

431 2 

05064 

R 

353741 

R 


TAD 

(-1 


4 313 

05065 

R 

040165 

R 


DAC 

STACK 

/NEW START OF STACK 

4314 

05066 

R 

040266 

R 


DAC 

GASS 


4315 

05067 

R 

226621 

R 

REPTRA 

LAC* 

CONT 

/TRANSFER STACK 1 LOCATION UP 

4316 

05070 

R 

060266 

R 


DAC* 

GASS 


4317 

05071 

R 

446621 

R 


ISZ 

CONT 


4318 

0507? 

R 

440266 

R 


ISZ 

GASS 


4319 

05073 

R 

777777 

A 


LAW 

-1 


4320 

05074 

R 

346621 

R 


TAO 

CONT 


4321 

05075 

R 

540170 

R 


SAD 

SYMBEG 

/END OF TRANSFER? 

4322 

05076 

R 

751001 

A 


SKPiCLA 

! CM A 

/YES 

4323 

05077 

R 

605067 

R 


JMP 

REPTRA 

/NQ 

4324 

05100 

R 

340166 

R 


TAD 

SPOINT 


4325 

05101 

R 

040166 

R 


DAC 

SPOINT 

/NEW END OF STACK 

4326 

05102 

R 

605046 

R 


JMP 

S2BACK 



4 327 / 

4328 / 

4329 / 

4330 / 

433 1 / 


/♦12JAH17* 

/*12JAH17* 
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MUMPS 

100 

su 8 Rounds 

FOR INI 

i'ERPRETER 



4 3 3 2 





/XUNSAVE - POP 

ITEM, from 

THE STACK 


4333 





/ 





4334 





/callin 

G SEQUENCE: 



4335 





/ 





4 3 36 





/ 

LAW 


///COUNT OF ITEMS TO COME OFF STACK 


4337 





/ 

CALL 

UN SAVE 



43 38 





/ 

FOLLOWED BY AMY 

EXECUTABLE INSTRUCTION, INCLUDING NOP 


4339 





/ 

BUT GENERALLY AN 

INSTRUCTION TO MOVE VALUE FROM ACCUM 

TO MEMORY 

4340 





/ 





4341 

05103 

P 

000000 

A 

UNSAVE 

0 



/* 1 2 JAH 1 7 * 

4342 

05104 

R 

045040 

R 


DAC 

SAVE 

/SAVE ITEM COUNT 

/* 1 2 JAH1 7* 

4 343 

05105 

R 

777776 

A 

IJ8ACK 

LAW 

*2 



4 344 

05106 

R 

300166 

R 


ADD 

SPOIWT 

/decrement STACK POINTER. 


4345 

05107 

R 

540165 

R 


SAD 

STACK. 

/CHECK FOR BEGINNING OF STACK 

BUFFER. 

4 346 

05110 

R 

000016 

A 


ERR16 


/“STACK" ERROR - STACK UNDERFLOW, 

4347 








/WHICH IS A SYSTEM PROBLEM 


4348 

05111 

R 

040166 

R 


DAC 

SPOIWT 



4349 

05112 

R 

220146 

R 


LAC* 

SVAR 

/ 3 MORE CHARACTERS 


4350 

05113 

R 

723003 

A 


AAC 

3 

/AVAILABLE FOR USER'S* 


4351 

05114 

R 

060146 

R 


0 AC* 

SVAR 

/PARTITION 


4352 

05115 

R 

220166 

R 


LAC* 

SPOIWT 

/GET ITEM FROM STACK AND 


4353 

05116 

R 

425103 

R 


XCT* 

UNSAVE 

/SAVE FOR CALLER 


4354 

05117 

R 

445103 

R 


ISZ 

UN SAVE 

/BUMP FOR NEXT ITEM OR RETURN 


4355 

05120 

R 

445040 

R 


ISZ 

SAVE 

/BUMP ITEM COUNT 


4356 

05121 

R 

605105 

R 


JMP 

UBACK 

/CONTINUE. 


4 35 7 

05122 

R 

625103 

R 


JMP* 

UN SAVE 

/FINISHED, RETURN. 


4358 
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fvHJMpc 


100 

SUBROUTINES 

FOR INTERPRETER 

4359 





/XSTEP 

- FIND A 

STEP 

4360 





/ 



4361 

05123 

R 

000000 

A 

STEP 

0 


4362 

05124 

R 

200206 

R 


LAC 

LOG 

4363 

05125 

R 

040016 

A 


DAC 

Rt 6 

4364 

05126 

R 

220145 

R 


LAC* 

LVAR 

4365 

05127 

R 

540207 

R 


SAD 

VAL 

4366 

051 30 

R 

625123 

R 


JMP* 

STEP 

4367 

05131 

R 

740001 

A 


CM A 


4 368 

05132 

R 

300207 

R 


ADD 

VAL 

4 369 

05133 

R 

740100 

A 


SNA 


4370 

051 34 

R 

605137 

R 


JMP 

STEP1 

4371 

05135 

R 

200134 

R 


LAC 

BUFF 

4372 

05136 

R 

040016 

A 


DAC 

R 1 6 

437 3 

05137 

R 

220016 

A 

STEP 1 

LAC* 

R 1 6 

4374 

05140 

R 

653606 

A 


LMQ'CLAC 

' i LLS + 6 

4 3 75 

0 5141 

R 

300016 

A 


ADD 

R 1 6 

4376 

05142 

R 

540167 

R 


SAD 

END 

4 37 7 

05143 

R 

000015 

A 


ERR 1 5 


4378 

05144 

R 

040016 

A 


DAC 

R 1 6 

4379 

051 45 

R 

2200 1 6 

A 


LAC* 

R 1 6 

4380 

05146 

R 

540207 

R 


SAD 

VAL 

4381 

05147 

R 

625123 

R 


JMP* 

STEP 

4382 

05150 

R 

605137 

R 


JMP 

STEP1 

4 3 8 3 






.EJECT 



/*12JAH17* 

/*12JAH17* 


/PTR ID FIRST LOG OF 
/STEP BEING EXECUTED. 

/NO OF STEP BEING EXECUTED. 

/NO OF STEP TO BE FOUND. 

/SAME, STEP FOUND, RETURN. 

/VAL- L VAR 

/STEP TO BE FOUND ABOVE CURRENT STEP? 
/BELOW’, START SEARCH FROM CURRENT STEP. 
/ABOVE, START SEARCH AT TOP. 


/GET STEP OFFSET AND 
/ADD TO SEARCH PTR, 

/END OF STEP BUFFER? 

/YES, "STEPS” 

/NO. 

/GET NO. OF NEXT STEP. 

/IS THIS THE STEP WE'RE LOOKING FOR? 
/YES, RETURN. 

/NO, CONTINUE SEARCH, 



PA GF 121 

MUMP£ 

5 

100 

subroutines 

FOR INTERPRETER 


4 38 4 





/ X P A K T 

- FIND A 

PART 


4395 





/ 




4396 

05151 

R 

000000 

A 

PART 

0 


/ * 1 2 J AH 1 7 * 

4387 

05152 

R 

220145 

R 


LAC* 

L VAR 

/NO OF STEP BEING EXECUTED /*12JAH17* 

4388 

05153 

R 

740001 

A 


CMA 



4389 

05154 

R 

300207 

R 


ADD 

VAL 

/ VAL" L VAR 

4 3 90 

0 515 5 

R 

740010 

A 


RAL 



4 391 

05156 

R 

200206 

R 


LAC 

LOC 

/POINTER TO CURRENT STEP 

4392 

05157 

R 

745400 

A 


SZLICLL 


/REF PART ABOVE OR BELOW? 

4393 

05160 

R 

200134 

R 


LAC 

BUFF 

/ABOVE, START AT TOP. 

4394 

05161 

R 

040016 

A 


DAC 

R 1 6 


4395 

05162 

R 

641002 

A 


LACQ 


/INTEGER PORTION (PART NO) VAL/100 

4396 

05163 

R 

040207 

R 


DAC 

VAL 


4397 

05164 

R 

220016 

A 

XPART1 

LAC* 

R16 


4398 

05165 

R 

653606 

A 


LMQiCLAC 

' 1 LLS + 6 

/GET STEP OFFSET AND 

4399 

05166 

R 

300016 

A 


ADD 

R 1 6 

/ADD TO SEARCH PTR. 

4400 

05167 

R 

540167 

R 


SAD 

END 

/END OF STEP BUFFER? 

4401 

0 517 0 

R 

000015 

A 


ERR 1 5 


/YE S, "STEPS” 

4402 

05171 

P 

040016 

A 


DAC 

R 1 6 

/NO. 

4403 

05172 

R 

220016 

A 


LAC* 

R 1 6 

/GET NO OF NEXT STEP. 

4404 

05173 

R 

653323 

A 


IDIV j 

144 



05174 

ft 

000144 

A 





4405 

05175 

R 

64100? 

A 


LACQ 



4406 

05176 

R 

540207 

R 


SAD 

VAL 

/IS THIS THE PART WE'RE LOOKING FOR? 

4407 

05177 

R 

625151 

R 


JMR* 

PART 

/YES, RETURN, 

4408 

05200 

R 

605164 

R 


J^P 

XPART1 

/NO, CONTINUE SEARCH. 

4409 
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MiJMpJ 

5 

.100 

SUBROUTINES 

FOP INTERPRETER 

4410 





/XCHECK 

- HANDLE CHANGES 

4411 





/ 



441 2 

05201 

R 

000000 

A 

CHECK 

0 


4413 

05202 

R 

220145 

R 


LAC* 

LVAR 

4414 

05203 

R 

741200 

A 


SNA 


4415 

05204 

R 

605234 

R 


JMP 

CHECK2 

4416 

05205 

R 

777777 

A 


LAW 

-1 

4417 

05206 

R 

340206 

R 


TAD 

LOG 

4418 

05207 

R 

040207 

R 


DAC 

VAL 

4419 

05210 

R 

220207 

R 


LAC* 

VAL 

4420 

0521 1 

R 

513702 

R 


ANQ 

(77 

4421 

0521 2 

R 

744200 

A 


SZA1CLL 


4422 

0521 3 

R 

605217 

R 


JMP 

CHECKI 

4423 

05214 

R 

220206 

R 


LAC* 

LOC 

4424 

05215 

R 

560145 

R. 


SAD* 

LVAR 

4425 

05216 

R 

605234 

R 


JMP 

CHECK 2 

4426 

0521 7 

R 

220145 

R 

checki 

LAC* 

LVAR 

4427 

05220 

R 

040207 

R 


DAC 

VAL 

4429 

05221 

R 

460145 

R 


ISZ* 

LVAR 

4429 

05222 

R 

105123 

R 


CALL 

STEP 

4430 

05223 

R 

060145 

R 


DAC* 

LVAR 

4431 

05224 

R 

200206 

R 


LAC 

LOC 

4432 

05225 

R 

740001 

A 


CM A 


4433 

05226 

R 

300016 

A 


ADD 

R 1 6 

4434 

05227 

R 

300222 

R 


ADD 

OPOINT 

4435 

05230 

R 

040222 

R 


DAC 

QPGINT 

4436 

05231 

R 

200016 

A 


LAC 

R 1 6 

4437 

05232 

R 

040206 

P 


DAC 

LOG 

4438 

05233 

R 

625201 

R 


JMP* 

CHECK 

4439 

05234 

R 

200206 

R 

CHECK2 

LAC 

LOC 

4440 

05235 

R 

740001 

A 


CM A 


4441 

05236 

R 

300167 

R 


ADD 

END 

4442 

05237 

R 

745100 

A 


SPAiCLL 


4443 

05240 

P 

605217 

R 


JMP 

CHECKI 

4444 

05241 

R 

625201 

R 


JMP* 

CHECK 

4445 
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E STEP BUFFER DURING EXECUTION 


/*12JAH17* 

/GET NO OF STEP BEING EXECUTED /*12JAH17* 
/DIRECT MODE CMMND? 

/Y ES. 

/NO. 


/DOES PREV STEP RAVE TRAILING EOM? 

/NO. 

/DOES STEP BUFFER PTR 

/POINT TO STEP BEING EXECUTED? 

/YES. 

/GET NO OF CURRENT STEP. 

/HOLD FOR SEARCH. 

/CHANGE TO AVOID IMMEDIATE EXIT FROM XSTEP. 
/CALLED TO UPDATE PTR INTO STEP BUFFER. 
/RESET STEP NO. 


/□POINT + OFFSET OF CHANGE = 

/NEW VALUE FOR OPOINT. 

/NEW VALUE FOR PTR INTO STEP BUFFER. 
/PTRS UPDATED, RETURN. 


/DOES STEP BUFFER PTR 

/POINT PAST END OF STEP BUFFER? 

/YES , GO UPDATE PTRS. 

/NO, RETURN. 



PAGE 123 

MUMP? 

5 

100 

SUBROUTINES 

FOR INTERPRETER 


4446 





/XGETKEY - EVALUATES KEY ENCLOSED BY SQUARE BRACKETS 

4447 





/ 




4448 





/CALLING SEQUENCE: 


4449 





/ 




4450 





/ 

CALL 

GETKEY 


4451 





/ 

RETURNS 

HERE ON SYNTAX 

ERROR 

4452 





/ 

RETURNS 

HER IP SYNTAX 

OK 

4453 





/ 

(NEXT CHAR IN AC, AND 

AVAILABLE VIA OCHAR) 

4454 





/RETURNS WITH USER SUPPLIED KEY IN VAL 

4455 





/ 




4456 

05242 

R 

000000 

A 

GETKEY 

0 


/* 1 2 JAH1 7 * 

4457 





/### # # 

SAVE ON 

STACK *###* 


4458 

05243 

R 

777772 

A 


LAW 

-6 

/* 1 2 JAH1 7 t 

4459 

05244 

R 

105040 

R 


CALL 

SAVE 


4460 

05245 

R 

207163 

R 


LAC 

EVAL 


4461 

05246 

R 

200242 

R 


LAC 

bkchar 


4462 

05247 

R 

200216 

R 


LAC 

TERM 


4463 

05250 

R 

200215 

R 


LAC 

SUM 


446 4 

05251 

R 

200202 

R 


LAC 

TEMP 


4465 

05252 

R 

200214 

R 


LAC 

M 


4466 





/##### 


* # ft * # 


4467 

05253 

R 

744000 

A 


CLL 


/NUMERIC RESULT ONLY 

4468 

05254 

R 

107163 

R 


CALL 

EVAL 


4469 





/##### 

POPSTACK 

nunn# 


4470 

05255 

R 

777772 

A 


LAW 

*6 


4471 

05256 

R 

105103 

R 


CALL 

UNSAVE 


4472 

05257 

R 

040214 

R 


DAC 

M 


447 3 

0 5 260 

R. 

040202 

R 


DAC 

TEMP 


4474 

05261 

R 

040215 

R 


DAC 

SUM 


4475 

05262 

R 

040216 

R 


DAC 

TERM 


4476 

05263 

R 

040242 

R 


DAC 

bkchar 


4477 

05264 

R 

047163 

R 


DAC 

EVAL 


447g 





/##### 


# ##*# 


4479 

05265 

R 

104645 

R 


CALL 

□CHAR 


4480 

05266 

R 

553751 

R 


SAD 

(35 

/RIGHT BRACKET 

4491 

05267 

R 

445242 

R 


ISZ 

GETKEY 

/syntax OK 

4482 

05270 

R 

104660 

R 


CALL 

ochari 

/SET UP FOR FUTURE "CALL OCHAR" 

4483 

05271 

R 

625242 

R 


JMP* 

GETKEY 


4484 
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m [j p 5 

5 

100 

SUBROUTINES 

FOR INTERPRETER 

4485 





/XKEYCHK 

- VALIDATES USER SUPPLIED KEY 

4486 





/ 



4487 





/CALLING 

SEQUENCE: 

4488 





/ 

CALL 

KEYCHK 

4489 





/ 

LAC ( * ) 

REQUIRED KEY 

4490 





/ 

S A D ( * ) 

USER SUPPLIED KEY 

4491 





/ 



4 492 





/RETURNS 

WITH 

ACCUM =0 IF KEYS MATCH 

449 8 





/ 

AND WITH ACC U M > 0 IN KEYS DO NOT MATCH 

4494 





/ 

LINK SET IF TRAP REQUIRED 

4495 





/ 



4496 

0 5 2 7 2 

R 

000000 

A 

KEYCHK 

0 

/♦12JAH17* 

4497 

05273 

P 

425272 

R 


XCTt 

KEYCHK /FETCH REQUIRED KEY /*12JAH17* 

4498 

05274 

R 

445272 

R 


ISZ 

KEYCHK 

4499 

05275 

R 

741200 

A 


SNA 


4500 

05276 

R 

605302 

R 


JMP 

KEYCH2 /REQUIRED KEY ZERO, PASS ANY USER KEY 

4501 

05277 

R 

513735 

R 


AND 

(377777 /GET POSITIVE KEY 

450? 

05300 

R 

425272 

R 


XCT* 

KEYCHK /EXECUTE THE SAD COMPARE 

4503 

0 5 3 01 

R 

750000 

A 


CLA 

/OK - KEYS AGREE 

4504 

05302 

R 

445272 

R 

KEYCH2 

ISZ 

KEYCHK /HOP OVER THE SAD 

4505 

05303 

R 

625272 

R 


JMP* 

KEYCHK 

4506 





/ 



4507 





/IF CALLER DECIDES MOM-MATCH IS ERROR, COMES HERE... 

4508 





/ 



4509 
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mump; 

5 

100 

SUBROUTINES 

FOR INTERPRETER 



4510 





/XASSEM 

- ASSEMBLE A VARIABLE f 

LAME 

4511 





/ 





4512 

05304 

R 

000000 

A 

ASSEM 

0 




451 3 

05305 

R 

777775 

A 


LAW 

- 3 



4514 

05306 

R 

040214 

R 


DAC 

M 


/SET TO GET UP TO 3 CHARS 

4515 

05307 

R 

104660 

R 


CALL 

□CHARI 


/GET FIRST CHAR AND 

4515 

05310 

R 

103724 

R 


CALL 

SYNTAX 


/CHECK CHAR TYPE . 

4517 

05 31 1 

R 

605326 

R 


JMP 

ASSEM5 


/A 

451 8 

0531 2 

R 

000003 

A 


ERR 3 



/N- "SYNTX" 

4519 

0531 3 

R 

553752 

R 


SAD 

C 45 


/P - IS IT A % 

4529 

05314 

R 

605361 

R 


JMP 

ASSEM4 


/YES. 

4521 

0531 5 

R 

000003 

A 


ERR3 



/NO. "SYNTX" 

4522 





/ 





452 3 

0531 6 

R 

440214 

R 

ASSEM 1 

ISZ 

M 


/THREE 5-BIT CHARS PACKED YET? 

4524 

05317 

R 

605323 

R 


JMP 

A S E M 1 5 


/M2JAH12* NO. PACK THIS ONE 

4525 

05320 

R 

777777 

A 


LAW 

-1 


/YES, IGNORE THIS AND 

4525 

05321 

R 

040214 

R 


DAC 

M 


/ALL OTHER ALPHAS UP TO PIJNCT. 

4527 

05322 

R 

605327 

R 


JM.P 

ASSEM? 



4528 

05323 

R 

640505 

A 

ASEM 1 5 

LRS 

5 


/* 1 2 JAH1 2* 

4529 

05324 

R 

200204 

R 


LAC 

SYMS 



4530 

05325 

R 

640605 

A 


LLS 

5 



4531 

05326 

R 

040204 

R 

ASSEM5 

DAC 

SY MS 


/SAVE ACCUM. CHARS. 

4532 

05327 

R 

104660 

R 

ASSEM2 

CALL 

OCHARI 


/GET NEXT CHAR AND 

4533 

05330 

R 

103724 

R 


CALL 

SYNTAX 


/CHECK TYPE. 

4534 

05331 

R 

605316 

R 


JMP 

ASSEM 1 


/A 

4535 

05332 

R 

000003 

A 


ERR 3 



/N- "SYNTX" 

4536 

05333 

R 

553753 

R 


SAD 

C 50 


/P - IS IT A ( 

4537 

05334 

R 

605337 

R 


JMP 

. + 3 


/YES, GO EVAL SU6SCR. 

4538 

05335 

R 

140205 

R 


DZM 

SCRIPS 


/NO. 

4539 

05336 

R 

625304 

R 


JMP* 

ASSEM 


/RETURN. 

4540 






. IFPNZ 

F MONEY 



4541 





/## # # # 

SAVE ON 

STACK 

### 


454? 

05337 

R 

777777 

A 


LAW 

- 1 



4543 

05340 

R 

105040 

R 


CALL 

SAVE 



4544 

05341 

R 

200211 

R 


LAC 

VALF 



4545 






• EM DC 




4546 

05342 

R 

744000 

A 


CLL 




4547 

05343 

R 

107163 

R 


CALL 

EVAL 


/L CLEAR FOR NUM RESULT ONLY. 

4548 

05344 

R 

040205 

R 


DAC 

SCRIPS 


/SAVE VALUE OF SIJBSCR. 

4549 

05345 

R 

51 3661 

P 


AMD 

(700000 



4550 

05346 

R 

740200 

A 


SZA 



/IS IT POS? 

4551 

05347 

R 

000005 

A 


ERP5 



/NO, "MINUS" 

4552 






• IFPNZ 

FMQNEY 



455 3 





/##### 

POP STACK 

# 


4554 

05350 

P 

777777 

A 


LAW 

-1 



4555 

05351 

R 

105103 

P 


CALL 

UN SAVE 



4556 

05352 

R 

04021 1 

R 


DAC 

VALF 



4557 






. EM DC 




4558 

05353 

R 

104645 

R 


CALL 

□ CHAR 


/GET CHAR AFTER SUBSCR, 

4559 

05354 

R 

553754 

R 


SAD 

(51 


/IS IT A ) 

4560 

05355 

R 

741000 

A 


SKP 



/YES, 

4561 

05356 

R 

000003 

A 


ERR3 



/NO, "SYNTX" 


/*12JAH17* 

/*12JAH17* 
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4562 

05357 

R 

104660 

R 


CALL 

□CHARI 

/INDEX TO 

GET NEXT CHAR AND 

4563 

05360 

R 

625304 

R 


JMP* 

ASSEM 

/RETURN. 


456* 





/ 





4565 

05361 

R 

213751 

R 

ASSEM4 

LAC 

(35 

/CHANGE % 

TO ] AND 

4566 

05362 

R 

605326 

R 


JMP 

ASSEM5 

/CONTINUE. 



4567 .EJECT 



PAG K 1.27 


MfJMPS 100 


SUBROUTINES FOR INTERPRETER 


45b8 





/xsve 

- HANDLE 

A STRING 

VALUED 

4569 





/ 




4570 

05363 

R 

000000 

A 

SVE 

0 



4571 

05364 

R 

104660 

R 


CALL 

OCHAPI 


4572 

05365 

R 

553755 

R 


SAD 

(42 


4573 

05.366 

R 

605421 

R 


JMP 

SVEI 


4574 

05367 

R 

104710 

R 


CALL 

SUBOPT 


4575 





/##### 

SAVE ON 

STACK 

##### 

4576 

05370 

R 

777776 

A 


LAW 

-2 


4577 

05 371 

R 

105040 

R 


CALL 

SAVE 


4578 

05372 

R 

200204 

R 


LAC 

SYMS 


4579 

05373 

R 

200205 

R 


LAC 

SCRIPS 


4580 





/##### 




4581 

05374 

R 

105304 

R 


CALL 

ASSEM 


4582 

05375 

R 

200204 

R 


LAC 

SYMS 


4583 

05376 

R 

040177 

R 


DAC 

SYM 


4584 

05377 

R 

200205 

R 


LAC 

SCRIPS 


4585 

05400 

R 

040200 

R 


DAC 

SCRIP 


4586 

05401 

R 

754000 

A 


CLL 1CLA 



4587 

05402 

R 

105434 

R 


CALL 

SYMBOL 


4588 

05403 

R 

641002 

A 


LACQ 



4589 

05404 

R 

741200 

A 


SNA 



4590 

05405 

R 

000010 

A 


ERR 1 0 



4591 

05406 

R 

744400 

A 


SNL1CLL 



4592 

05407 

R 

000011 

A 


ERR11 



4593 





/###*# 

POPSTACK 


4594 

05410 

R 

777776 

A 


LAW 

-2 


4595 

0541 1 

R 

105103 

R 


CALL 

UN SAVE 


4596 

05412 

R 

040205 

R 


DAC 

SCRIPS 


4597 

05413 

R 

040204 

R 


DAC 

SYMS 


4598 





/##### 



##### 

4599 

05414 

R 

213732 

R 


LAC 

(XC01. 


4600 

05415 

R 

040016 

A 


DAC 

R 1 6 


4601 

05416 

R 

750000 

A 


CLA 



4602 

0541 7 

R 

440017 

A 


ISZ 

R 1 7 


4603 

05420 

P 

625363 

R 


JMP* 

SVE 


4604 





/ 




4605 





/TEXT 

LITERAL 



4606 





/ 




4607 

05421 

R 

200222 

R 

svei 

LAC 

OPOIMT 


4608 

05422 

R 

040017 

A 


DAC 

R 1 7 


4609 

05423 

R 

200223 

R 


LAC 

□PLACE 


4610 

05424 

R 

040016 

A 


DAC 

R16 


4611 

05425 

R 

104660 

R 


CALL 

QCHARI 


4619 

05426 

R 

553755 

R 


SAD 

(42 


4613 

05427 

R 

741000 

A 


SKP 



4614 

05430 

R 

605425 

R 


JMP 

. - 3 


4615 

05431 

P 

104660 

R 


CALL 

□chart 


4616 

05432 

R 

213755 

R 


LAC 

(42 


4617 

05433 

R 

625363 

P 


JMP* 

SVE 


4618 






.EJECT 




EXPRESSION 


/♦12JAH17* 

/GET NEXT CHAR /*12JAH17* 

/IS IT A » 

/YES, GO PROC. TEXT LITERAL. 

/NO, BACKUP GPOINT. 


/ASSEMBLE THE VARIABLE NAME, 

/SAVE NAME, 

/SAVE SUBSCR, 

/SEARCH SYMBOL TABLE, 

/IS IT DEFINED? 

/NO, "UN’DEF" 

/NUMERIC? 

/ YES, - "MIXED” 

/ STRING 


/* 1 2 JAH 1 4* POS 
/* 1 2 JAH 1 4* CHAR 

/POINTS TO STR, 
/RETURN. 


/POINTS TO TEXT LIT. 
/*12JAH14* SAVE 
/*12JAH14* CHAR POS 

/IGNORE CHARS UP TO NEXT " 


/INDEX TO CHAR AFTER " 
/ " IN AC FOR 
/RETURN. 
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4619 





/SYMBOL 

STUFF: 

GET, PUT, KILL 


4620 





/ IN SYMBOL TABLE: 


4621 





/ 00 X 

UNDEFIN 

ED OR FLOATING P 

01 NT 

4622 





/ 01X 

ARRAY 

(MEG SUB SCR IF 

SIR) 

4623 





/ 1QX 

NUMERIC 

VARIABLE 


4624 





/ 1 IX 

STRING 

variable 


4625 





/ SYMBOL 

I I 



4626 





/ 0X0 

GET 



4627 





/ 1X0 

PUT 



4628 





/ 0X1 

KILL 



4629 





/ calls: 




4630 





/ get 

CLL1CLA 


4631 





/ 

CALL 

SYMBOL 


4632 





/ PUT 

STLICLA 


4633 





/ 

CALL 

SYMBOL 


4634 





/ kill 

i STL 



4635 





/ 

LAC EOOOOO 


46 3 6 





/ 

CALL 

symbol 


4637 





/ RETURN 

• 



46 38 





/ good 

' SYMBOL 

In MQ 


4639 





/ 

LAC* 

R 1 7 GETS VALUE 

OR STRING 

4640 





/ 

IF "GOT STRING", LINK= 

1. ELSE L I N K = 0 

4641 





/ BAD 

MO AND 

LINK CLEAR 


4642 





/ 




4643 





/ 




4644 

05434 

R 

000000 

A 

SYMBOL 

0 



4645 






• IFPNZ 

MONEY 


4646 

05435 

R 

400210 

R 


XCT 

MONYSW 

/IGNORE DZM SWAPSW 

4647 

05436 

R 

741000 

A 


SKP 



4648 






.ENDC 



4649 

05437 

R 

140652 

R 


DZM 

SWAPSW 

/DON’T ALLOW USER 

4650 

05440 

R 

245434 

R 


XOR 

SYMBOL 


4651 






.IFPNZ 

XVM 


4652 

05441 

R 

741400 

A 


SZL 


/LINK SET? 

4653 

05442 

R 

253662 

R 


XOR 

(400000 

/YES, SET BIT IS N! 

4654 






.ENDC 



4655 

05443 

R 

045434 

R 


DAC 

SYMBOL 


4656 

05444 

R 

200177 

R 


LAC 

SYM 


4657 

05445 

R 

060153 

R 


DAC* 

SYMEND 


4658 

05446 

R 

660703 

A 


ALSS 

3 


4659 

05447 

R 

045040 

R 


DAC 

SAVE 


4660 

05450 

R 

200170 

R 


LAC 

SYMBEG 


4661 

05451 

R 

040017 

A 

BACK 

DAC 

R 1 7 

/ LOOK FOR SYMBOL 

4662 

05452 

R 

220017 

A 

BACK 1 

LAC* 

R17 


4663 

05453 

P 

652703 

A 


LMQ1ALS 

3 


466 4 

05454 

R 

545040 

R 


SAD 

SAVE 


4665 

05455 

R 

605501 

R 


JMp 

EQUAL! 

/ FOUND SYMBOL 

4666 

05456 

R 

641092 

A 


LACQ 



4667 

05457 

R 

740110 

A 


SMA « RAL 



4668 

05460 

R 

605465 

R 


JMP 

0VER1 

/UNDEF OR ARRAY OR 

4669 

05461 

R 

745100 

A 


SPA 1CLL 


/NUM OR STR? 

4670 

05462 

R 

605472 

R 


JMP 

QVER2 

/STR 


/* t 2 JAH1 7 


IF ALREADY IN $M 


TO BREAK 


IN USER MODE 


FLOATING POINT 


*12JAH15* 
*12JAH15* 
*1 2 JAH15* 
* 1 2 JAH1 5* 
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4671 

05463 

R 

440017 

A 


ISZ 

R 1 7 

4672 

05464 

R 

605452 

R 


JMP 

8ACK1 

4673 





/ 



4674 



005465 

R 

0VER1=. 



4675 






.IFPNZ 

fmoney 

4676 

05465 

R 

740100 

A 


SMA 


4677 

05466 

R 

605476 

R 


JMP 

OVER 3 

4678 






• ENDC 


4679 

05467 

R 

220017 

A 


LAC* 

R 1 7 

4680 

05470 

R 

300017 

A 


ADD 

R 1 7 

4681 

05471 

R 

605451 

R 


JMP 

BACK 

4682 

05472 

R 

220017 

A 

QVER2 

LAC* 

R 1 7 

4683 

05473 

R 

653606 

A 


LMQ'CLAC 

:ills+6 

4684 

05474 

R 

300017 

A 


ADO 

R 1 7 

4686 

05475 

R 

605451 

R 


JMP 

BACK 

4686 






.IFPNZ 

FMGNEY 

4607 

05476 

R 

200017 

A 

QVER3 

LAC 

R 1 7 

4688 

05477 

R 

723004 

A 


AAC 

4 

4689 

05500 

R 

605451 

R 


JMP 

BACK 

4690 






, ENDC 


4691 





/ 



4692 

05501 

R 

641002 

A 

EQUAL1 

LACQ 


4693 

05502 

R 

040016 

A 


DAC 

R16 

4694 

05503 

R 

200017 

A 


LAC 

R 1 7 

4695 

05504 

p 

540153 

P 


SAD 

SYMEND 

4696 

05505 

R 

605547 

R 


JMP 

NQSYM 

4697 

05506 

R 

200200 

R 


LAC 

SCRIP 

4698 

05507 

R 

741200 

A 


SNA 


4699 

05510 

R 

605707 

R 


JMP 

FNDSYM 

4700 

0551 1 

R 

641002 

A 


LACQ 


4701 

0551 2 

R 

741110 

A 


SPA 1 RAL 


4702 

0551 3 

R 

000017 

A 


ERR 1 7 


4703 








4704 

05514 

R 

740100 

A 


SMA 


4705 

05515 

R 

000017 

A 


ERR 1 7 


4706 

05516 

R 

220017 

A 


LAC* 

R 1 7 

4707 

05517 

R 

300017 

A 


ADD 

R 1 7 

4708 

05520 

P 

045103 

R 


DAC 

UNSAVE 

4709 

05521 

R 

200017 

A 


LAC 

R 1 7 

4710 

05522 

R 

045040 

R 


DAC 

SAVE 

4711 





/ 



4712 





/lookin 

G FOR ANC 

S FOUND 

471 3 





/ 



4714 

05523 

R 

220017 

A 

ARRAY 1 

LAC* 

R 1 7 

4715 

05524 

R 

745100 

A 


SPA1CLL 


4716 

05525 

R 

605535 

R 


JMP 

ARRAY2 

4717 

05526 

R 

540200 

R 


SAD 

SCRIP 

4718 

05527 

R 

606076 

R 


JMP 

FNDETjF 

4719 

05530 

R 

440017 

A 


ISZ 

R 1 7 

4720 

055 31 

R 

200017 

A 


LAC 

R 1 7 

4721 

05532 

R 

545103 

R. 


SAD 

UNSAVE 

4722 

05533 

R 

606022 

R 


JMP 

NQARR 


/ N U M , POINT AROUND IT 
/GO CHECK NEXT SYMBOL 


/F.P. OR ARRAY? 

/F.P. 

/GET ARRAY OFFSET 
/TO POINT AROUND ARRAY. 
/GO CHECK NEXT SYMBOL. 

/GET STR OFFSET 
/TO POINT AROUND SIR, 

/GO CHECK NEXT SYMBOL. 


/FOUR WORDS IN F.P. VAR 


/END OF SYMBOL TABLE? 

/YES , SYMBOL NOT DEFINED 
/NO. 

/DOES SYMBOL HAVE SUBSCRIPTS? 

/NO, FOUND VARIABLE 
/YES. 

/* 1 2 J AH6* 

/ LOOKING FOR ARRAY, BUT FOUND VARIABLE 
/- "SYMBO" 

/F.P. OR UNDEFINED? *12JAH6* 

/YES, "SYMBO" *12JAHS* 


/ POINTER TO NEXT SYMBOL 
/ POINTER TO ARRAY'S OFFSET 

ARRAY 

/ GET SUBSCRIPT 
/STR OR NUM ELEMENT? 

/STR 

/NfJM, IS IT ELEM WE'RE LOOKING FOR? 

/YES, ARRAY ELEMENT FOUND ( NU M ER IC , LINK=Q) 
/UPDATE SEARCH PTR. 

/END OF ARRAY REACHED? 

/YES, ARRAY ELEMENT NOT FOUND 
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4723 

05534 

R 

605523 

R 


JMP 

arrayi 

/NO, COiMTINUE. 

4724 





/ 




4725 





/ELEMENT 

! FOUND IS STR ELEMENT 


4726 





/ 




4727 

05535 

R 

744003 

A 

ARRAY2 

CM A i STL 



4728 

05536 

R 

540200 

R 


SAD 

SCRIP 

/IS IT ELEM WE'RE LOOKING FOR? 

4729 

05537 

P 

606076 

R 


JMP 

FNDELE 

/YES, ARRAY ELEMENT FOUND (STRING, LINK=1) 

4730 

05540 

R 

220017 

A 


L AC * 

R 1 7 

/NO, GET STRING'S OFFSET AND 

4731 

05541 

R 

653606 

A 


LMQICLAC 

1LLS+6 

/ADD TO SEARCH PTR 

4732 

05542 

R 

300017 

A 


ADD 

R 1 7 

/TO GET NEXT ELEMENT. 

4733 

05543 

R 

545103 

R 


SAD 

UNSAVE 

/END OF ARRAY REACHED? 

4734 

05544 

R 

606022 

R 


JMP 

NQARR 

/YES, ARRAY ELEMENT NOT FOUND. 

4735 

05545 

R 

040017 

A 


DAC 

R 1 7 

/NO, CONTINUE. 

4736 

05546 

R 

605523 

R 


JMP 

arrayi 


4737 





/ 




4738 





/SYMBOL 

NOT DEFINED 


4739 





/ 




4740 

05547 

R 

205434 

R 

NOSY M 

LAC 

SYMBOL 


4741 

05550 

R 

650000 

A 


CLQ 



4742 

05551 

R 

744100 

A 


SMAICLL 


/ PUT? 

4743 

05552 

R 

606166 

R 


JMP 

SYMEX 

/ NO * UNDEFINED, EXIT WITH MQ AND LINK =0 

47 4 4 

05553 

R 

200200 

R 


LAC 

SCRIP 

/ yes 

4745 

05554 

R 

750230 

A 


SZA1CLA* 

I AC 

/ARRAY ELEMENT? 

4746 

05555 

R 

605621 

R 


JMP 

APPARR 

/YES, GO PUT NEW ARRAY ELEMENT 

4747 






. IFPNZ 

FMQNEY 


4748 

05556 

R 

540211 

R 


SAD 

VALF 


4749 

05557 

R 

605641 

R 


JMP 

APPFP 

/FLOATING POINT 

4750 






• ENDC 



4751 

05560 

R 

777777 

A 


LAW 

-1 


4752 

05561 

R 

540207 

R 


SAD 

VAL 

/IS VARIABLE NUM OR STR? 

47 5 3 

05562 

R 

605575 

R 


JMP 

APPSTR 

/STR 

4754 





/ 




4755 





/PUT NEa 

' NUMERIC 

VARIABLE 


4756 





/ 




4757 

05563 

R 

777775 

A 

APPNUM 

LAW 

- 3 

/BACK UP TO 

4758 

05564 

R 

3001.70 

R 


ADD 

SYMBEG 

/NEW VALUE FOR START 

4759 

05565 

R 

040017 

A 


DAC 

Rt 7 

/OF SYMBOL TABLE. 

4760 

05566 

R 

104034 

R 


CALL 

STOR2 

/CHECK FOR SYMBOL TABLE OVERFLOW. 

4761 

05567 

R 

200177 

R 


LAC 

SYM 


*76? 

05570 

R 

253662 

R 


XOR 

(400000 

/INDICATES NUM VARIABLE. 

4763 

05571 

P 

060017 

A 

DEFMUM 

DAC* 

R 1 7 

/STORE SYM NAME (OR SU35CR IF HERE FROM NUMDEF) 

4764 

05572 

R 

200207 

R 


LAC 

7 AL 

/AND VALUE. 

4765 

05573 

R 

060017 

A 


DAC* 

R17 


4766 

05574 

R 

606166 

R 


JMP 

SYMEX 

/ EXIT FROM PUT NEW NUMERIC VARIABLE 

4767 





/ 




4768 





/PUT NEIa 

i STR VARIABLE 


4769 





/ 




4770 

05575 

R 

777776 

A 

APPSTR 

LAW 

-2 


4771 

05576 

R 

300133 

R 


ADD 

8UFF2 


477? 

05577 

R 

040015 

A 


DAC 

R15 

/PTR TO STR AC 

47 7 3 

05600 

R 

220133 

R 


LAC* 

BUFF2 


477 4 

05601 

R 

653606 

A 


LMQICLAC 

« LLS+6 




PAGE 131 

MUMPS 

5 

100 

SUBROUTINES 

FOR INTERPRETER 

47 7 5 

05602 

R 

040220 

R 


DAC 

IPOINT 

4776 

05603 

R 

740030 

A 


I AC 


4777 

05604 

R 

740001 

A 


CM A 


4778 

05605 

R 

044103 

R 


DAC 

DECIN 

4779 

05606 

R 

723777 

A 


AAC 

-1 

4780 

05607 

R 

300170 

R 


ADD 

SYMBEG 

4781 

0561 0 

R 

040017 

A 


DAC 

R 1 7 

4782 

0561 1 

R 

1 04034 

R 


CALL 

ST0R2 

4783 

0561 2 

R 

200177 

R 


LAC 

SYM 

4784 

0561 3 

R 

253650 

R 


XOR 

(600000 

4785 

05614 

R 

060017 

A 

DEFSIR 

DAC * 

R 1 7 

478b 

05615 

R 

220015 

A 


LAC* 

R 1 5 

4787 

0561 6 

R 

444103 

R 


ISZ 

DECIN 

4788 

0561 7 

R 

605614 

R 


JMP 

. * 3 

4789 

05620 

R 

606166 

R 


JMP 

SYMEX 

4790 





/ 



4791 





/PUT NEW 

f ARRAY 

ELEMENT 

479? 





/ 



4793 



005621 

R 

APPARR=. 



4794 






. IFPNZ 

F MONEY 

4796 

05621 

R 

540211 

R 


SAD 

VALF 

4796 

05622 

R 

000017 

A 


ERR17 


4797 






„ ENDC 


4798 

05623 

R 

777777 

A 


LAW 

-1 

4799 

05624 

R 

540207 

R 


SAP 

VAL 

4800 

05625 

R 

605661 

R 


JMP 

ARRSTR 

4801 

05626 

R 

777773 

A 


LAW 

-5 

4802 

05627 

R 

300170 

R 


ADD 

SYMBEG 

4803 

05630 

R 

040017 

A 


DAC 

R 1 7 

4804 

05631 

R 

104034 

R 


CALL 

STOP? 

4805 

05632 

R 

200177 

R 


LAC 

SYM 

4806 

05633 

R 

253663 

R 


XOR 

(200000 

4807 

05634 

R 

060017 

A 


OAC * 

R 1 7 

4808 

05635 

R 

213705 

R 


LAC 

(2 

4809 

05636 

R 

060017 

A 


DAC* 

R17 

4810 

05637 

R 

200200 

R 

NUMDEF 

LAC 

SCRIP 

4811 

05640 

R 

605571 

R 


JMP 

DEFNUM 

4812 





/ 



4813 






.IFPNZ 

F MONEY 

4814 





/ 



4815 





/PUT NEW 

i FLOATING POINT 

4816 





/ 



4817 

05541 

R 

777772 

A 

APPFP 

LAw 

-6 

48 18 

05642 

R 

300170 

R 


ADO 

SYMBEG 

4819 

05643 

P 

040017 

A 


DAC 

R17 

4820 

05644 

R 

104034 

R 


CALL 

ST0R2 

4821 

05645 

R 

200177 

R 


LAC 

SYM 

4822 

05546 

R 

060017 

a 


DAC* 

R 1 7 

4823 

05647 

R 

777776 

A 


LAW 

-2 

4824 

05650 

R 

300133 

R 


ADD 

BUFF2 

4825 

05651 

R 

040015 

A 


DAC 

R 1 5 

4826 

05652 

R 

777774 

A 


LAW 

-4 


/STR OFFSET 


/COUNT FOR STORING STR 
/SETUP NEW VALUE 
/FOP START OF 
/SYMBOL TABLE, 

/CHECK FOR SYM TBL OVERFLOW. 

/INDICATES STR VARIABLE. 

/GET ANOTHER WO OF STR. 

/FINISHED? 

/NO, CONTINUE STORING. 

/YES, EXIT FROM PUT NEW STRING VARIABLE 


/ARRAY ELEM CANNOT CONTAIN F.P.JJJ 


/NEW ELEMENT IS A STRING 
/ NEW ELEMENT IS NUMERIC 


/CHECK FOR SYM TBL OVERFLOW. 


/ ENTER SYMBOL IN SYMBOL TABLE 
/ ENTER NEW ARRAY'S OFFSET 
/ENTER NEW SUBSCR VALUE. 


VARIABLE 

/COUNT FOR STORING F.P. 

/SET UP NEW VALUE FOR START 
/OF SYMBOL TABLE 
/CHECK IF OUT OF SPACE 
/DO IN BITS 0,1 INDICATE F.P. 
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100 
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4827 

0 5 6 5 3 

R 

0441.0 3 

R 


DAC 

DECIN 

482« 

05654 

R 

220015 

A 


LAC* 

R 1 5 

4829 

05655 

R 

060017 

A 


DAC* 

R 1 7 

4830 

05656 

9 

444103 

R 


1SZ 

DECIN 

4831 

05657 

R 

605654 

R 


J M P 

.-3 

4832 

05660 

R 

606166 

R 


JMP 

SYMEX 

48 33 






. ENDC 


48 34 





/ 



4835 

05661 

R 

777776 

A 

ARRSTR 

LAW 

-2 

4836 

05662 

R 

300133 

R 


ADD 

8UFF2 

48 37 

05663 

R 

040015 

A 


DAC 

R 1 5 

4838 

05664 

R 

220133 

P 


LAC* 

BUFF2 

4839 

05665 

R 

653606 

A 


LMQ'CLAC 

:ills+6 

4840 

05666 

R 

040220 

R 


DAC 

I POINT 

4841 

05667 

R 

740030 

A 


I AC 


4842 

05670 

P 

740001 

A 


C M A 


4843 

05671 

R 

044103 

R 


DAC 

DECIN 

4844 

05672 

R 

723775 

A 


AAC 

- 3 

4845 

05673 

R 

300170 

R 


ADD 

SYMBEG 

4846 

05674 

R 

040017 

A 


DAC 

R 1 7 

4847 

05675 

R 

104034 

R 


CALL 

ST0R2 

4848 

05676 

R 

200177 

R 


LAC 

SYM 

4849 

05677 

R 

253663 

R 


XOR 

(200000 

4850 

05700 

R 

060017 

A 


DAC* 

R17 

4851 

05701 

R 

200220 

R 


LAC 

I POINT 

4852 

05702 

R 

313705 

R 


ADD 

(2 

4853 

05703 

R 

060017 

A 


DAC* 

R17 

4854 

05704 

R 

200200 

R 

STRDEF 

LAC 

SCRIP 

4855 

05705 

R 

740001 

A 


CM A 


4B56 

05706 

R 

605614 

R 


JMP 

DEFSTR 

485 7 





/ 



4858 





/FOUND 

A SYMBOL 


4859 





/ 



4860 

05707 

R 

641002 

A 

FNDSYM 

LACG 


4861 

05710 

R. 

742110 

A 


SMAIRTL 


4862 

0571 ) 

R 

605740 

R 


JMP 

fnqarr 

4 863 

0571? 

R 

205434 

R 


LAC 

SYMBOL 

4864 

0571 3 

R 

513756 

R 


AND 

(500000 

4865 

05714 

R 

741200 

A 


SNA 


4866 

057 15 

R 

606166 

R 


JMP 

symex 

4867 

05716 

R 

740400 

A 


SNL 


4868 

05717 

R 

606152 

P 


JMP 

NUM VAR 

4869 

05720 

R 

220017 

A 


LAC* 

R 1 7 

48 70 

05721 

R 

653606 

A 


LMQ'CLAC 

1 L L S + 6 

4871 

05722 

R 

605747 

R 


JMP 

DELET1 

4872 





/ 



4873 






. IFPNZ 

FWONEY 

4874 

05723 

R 

205434 

R 

FL0AT1 

LAC 

SYMBOL 

4875 

05724 

R 

513756 

R 


AND 

(500000 

4876 

05725 

R 

740200 

A 


SZA 


4877 

05726 

P 

605735 

R 


JMP 

FL0AT2 

4878 

05727 

R 

200211 

R 


LAC 

VALF 


/ POINTER TO BEGINNING OF STRING AC 


/ OFFSET 


/COUNT FOR STORING STR. 


/CHECK FOR SYM T B L OVERFLOW. 

/INDICATES ARRAY ELEMENT. 
/STORE SYMBOL NAME 


/ ENTER NEW ARRAY'S OFFSET 

/SUBSCR V A L FOR STR HELD IN l'S COMP. 
/GO STORE REST OF STR ELEN. 


/GET SYM TBL ENTRY FOR FOUND SYM 

/ IT'S AN ARRAY (CAN ONLY BE KILLED) 
/ LOOKING FOR AND FOUND VARIABLE 


/ GOT VAR? EXIT, LK=! IF STR, 0 IF NUM 
/PUT OR KILL; IS IT SIR OR NUM? 

/ FOUND NUM VAR 

/ FOUND STR VAR; KILL IT, CHECK FOR PUT OR KILL 


/FLOATING POINT 

/GET, PUT, OR KILL? 
/KILL OR PUT 
/GET 
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4879 

057 30 

R 

741200 

A 


SNA 



/LEGAL GET? 

4880 

05731 

R 

000017 

A 


ERR 1 7 



/NO 

48 81. 

05732 

R 

754003 

A 


CLCiSTL 


/SIMULATE STRING RETURN FOR XSVE’S BENEFIT 

4882 

05733 

R 

140211 

R 


DZM 

VALF 


/FLAG TO INDICATE F.P, VALUE RETURNED 

4833 

05734 

R 

606166 

R 


JMP 

SYMF.X 



4894 

05735 

R 

440017 

A 

FLQAT2 

ISZ 

R 1 7 


/GO KILL IT 

4885 

057 36 

R 

213757 

R 


LAC 

(5 



4886 

05737 

R 

605750 

R 


JMP 

DELET2 



4887 






. ENDC 




4888 





/ 





4889 



005740 

R 

F N D A R R = 

• 




4890 






.IFPNZ 

F MONEY 



4891 

05740 

R 

740400 

A 


SNL 



/FLOATING POINT OR ARRAY? 

4892 

05741 

R 

605723 

R 


JMP 

FL0AT1 


/FLOATING POINT 

4893 






.ENDC 




4894 

05742 

R 

205434 

R 


LAC 

symbol 


/ENTIRE ARRAY TO BE KILLED 

4895 

05743 

P 

513664 

P 


AND 

( 1 ooooo 



4896 

05744 

R 

745200 

A 


SNA iCLL 



/ KILL? 

4897 

05745 

R 

000017 

A 


ERR 1 7 



/ NO* "SYMBO" 

4898 

05746 

R 

220017 

A 

DELETE 

LAC* 

R 1 7 


/ YES; ARRAY’S OFFSET 

4899 

05747 

R 

313705 

R 

DELET1 

ADD 

(2 


/ ENTER HERE TO DELETE STRING VARIABLE 

4900 

05750 

R 

044103 

R 

DELET2 

DAC 

DEC IN 


/ ENTER HERE TO DELETE NUMERIC OR FLOATING POINT 

4901 









/(VARIABLES AND ELEMENTS) 

4902 

05751 

R 

200016 

A 

DELET3 

LAC 

R16 



4903 

05752 

R 

513664 

R 


AND 

( 100000 



4904 

05753 

R 

740200 

A 


SZA 




4905 

05754 

R 

000017 

A 


ERR 17 



/ TRIED TO KILL A SPECIAL VARIABLE- "SYMS0" 

4906 

05755 

R 

777775 

A 


LAW 

- 3 


/ ENTER HERE TO DELETE STRING ELEMENT 

4907 

05756 

R 

300017 

A 


ADD 

R 1 7 



4908 





/ 





4909 





/MOVE EVERYTHING IN SYMBOL 

TABLE DOWN 

491 0 





/(OVERLAY AREA 

OCCUPIED 

BY 

DELETED ENTRY) 

4911 





/ 





4912 

05757 

R 

540170 

R 

DELMQV 

SAD 

SYMBEG 



4913 

05760 

P 

605771 

R 


JMP 

DELEND 


/FINISHED. 

4914 

05761 

R 

045103 

R 


DAC 

UNSAVE 


/FETCH PTR 

4915 

05762 

R 

304103 

R 


ADD 

OECIN 


/PLUS OFFSET 

4916 

05763 

R 

045040 

R 


DAC 

SAVE 


/EQUALS " STORE” PTR. 

4917 

05764 

P 

225103 

R 


LAC* 

UNSAVE 


/FETCH WORD AND 

4918 

05765 

R 

065040 

R 


DAC* 

SAVE 


/STORE IT. 

4919 

05766 

R 

777776 

A 


LAW 

”2 



4920 

05767 

R 

305103 

R 


ADO 

UNSAVE 


/DECREMENT "FETCH" PTR. 

4921 

05770 

R 

605757 

R 


JMP 

DELMOV 



4922 





/ 





4923 

05771 

R 

304103 

R 

DELEND 

ADD 

DECIN 


/NEW VALUE FOR SYMBEG. 

4924 

05772 

R 

104034 

R 


CALL 

STQR? 


/UPDATE SYMBEG & SVAR. 

4925 

05773 

R 

205434 

P 


LAC 

SYMBOL 



4926 

05774 

R 

740100 

A 


SMA 



/WAS CALL FOR PUT OR KILL? 

4927 

05775 

R 

606166 

R 


JMP 

SYMEX 


/ KILL, RETURN. 

4928 

05776 

R 

200016 

A 


LAC 

R16 



4929 






.IFPNZ 

FMONEY 



4930 

05777 

R 

741110 

A 


SPA1RAL 


/DATA TYPE? 
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SUBROUTINES 

FOR INTERPRETER 

4931 

06000 

R 

750000 

A 


CLA 


4932 

06001 

R 

751130 

A 


SPAICLAI 

I AC 

4933 






.ENDC 


4934 






• IFNOZ 

FMONEY 

4935 






SMA 


4936 






. ENDC 


4937 

06002 

R 

60601 1 

R 


JMP 

CHKARR 

4938 






. IFPNZ 

FMONEY 

4939 

06003 

R 

540211 

R 


SAD 

valf 

4940 

06004 

R 

605641 

R 


JMP 

APPFP 

4941 






.ENDC 


4 94 2 

06005 

R 

777777 

A 


LAW 

-1 

4943 

06006 

R 

540207 

R 


SAD 

VAL 

4944 

06007 

R 

605575 

R 


JMP 

APPSTR 

4945 

06010 

R 

605563 

R 


JMP 

APPNUM 

4946 





/ 



4947 



006011 

R 

CHKARR=. 



4948 






.IFPNZ 

FMONEY 

49 49 

06011 

R 

540211 

R 


SAD 

VALF 

4950 

06012 

R 

000017 

A 


ERR 1 7 


4951 






.ENDC 


4952 

06013 

R 

207066 

R 


LAC 

NR STEP 

4953 

06014 

R 

304103 

R 


ADD 

DEC IN 

4954 

06015 

R 

045040 

R 


DAC 

SAVE 

4955 

06016 

R 

750001 

A 


CLC 


4956 

06017 

R 

540207 

R 


SAD 

VAL 

4957 

06020 

R 

606046 

R 


JMP 

INSSTR 

4958 

06021 

R 

606030 

R 


JMP 

INSNUM 

4959 





/ 



4960 

06022 

R 

205434 

R 

NGARR 

LAC 

SYMBOL 

4961 

06023 

R 

650000 

A 


CLQ 


4962 

06024 

R 

754101 

A 


SMA 1 CLC 1 

CLL 

4963 

06025 

R 

606166 

R 


JMP 

SYMEX 

4964 

06026 

R 

540207 

R 


SAD 

VAL 

4965 

06027 

P 

606046 

R 


JMP 

INSSTR 

4966 





/ 



4967 





/PUT NE* 

i NUMERIC 

! ARRAY 

4969 





/ 



4969 

06030 

R 

200170 

R 

INSNUM 

LAC 

SYMBEG 

4970 

06031 

R 

040014 

A 


DAC 

R 1 4 

4971. 

06032 

R 

723776 

A 


AAC 

-2 

4972 

06033 

R 

040017 

A 


DAC 

R17 

4973 

06034 

R 

104034 

R 


CALL 

S T 0 R 2 

4974 

06035 

R 

225040 

R 


LAC * 

SAVE 

4975 

06036 

R 

313705 

R 


ADD 

(2 

4976 

06037 

R 

065040 

R 


DAC* 

SAVE 

4977 

06040 

R 

220014 

A 


LAC* 

R 1 4 

4978 

06041 

R 

060017 

A 


DAC* 

R 1 7 

4979 

06042 

R 

200014 

A 


LAC 

R14 

4990 

06043 

R 

545040 

R 


SAD 

SAVE 

4981 

06044 

R 

605637 

R 


JMP 

NUMDEF 

4982 

06045 

R 

606040 

R 


JMP 

.-5 


/STRING OR NUMBER 


/PUT NEW ARRAY ELEM. 

/FLOATING PT . ? 

/YES 

/NO 

/ PUT NEW STR V AR 
/ PUT NEW NUM VAR 


/FLOATING POINT? 

/ERROR, F.P. CANNOT GO INTO ARRAY ELEMENT 

/PTR TO ARRAY'S OFFSET BEFORE MOVE, 

/PLUS OFFSET OF DELETED ELEM, 

/POINTS TO PRESENT LOG OF ARRAYS OFFSET. 


/ PUT NEW STR ELE 
/ PUT NEW NI.JM ELE 

/ LOOKING FOR AND FOUND ARRAY, BUT DIDN'T 
/ FIND SPECIFIED ELEMENT 
/ PUT? 

/ NO, EXIT, UNQEF ARRAY ELEM ON GET OR KILL 
/ YES, STR OR NUM? 

/STR 

: L E M E N T 

/ PUT NEW NUMERIC ARRAY ELEMENT 


/NEW VALUE FOR SYMBEG 

/UPDATE SYMBEG & CHK T3‘L OVERFLOW. 

/GOT TO BE ONE'S COMPLEMENT i i ! 
/INCREASE ARRAY'S OFFSET 
/MAKE ROOM FOR NEW NUM ELEMENT. 


/FINISHED? 

/YES, GO INSERT NEW NUM ELEM. 
/NO, CONTINUE. 
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4983 





/ 



4984 





/PUT NEM 

i STR ARRAY ELEME 

4985 





/ 



4986 

06046 

R 

777776 

A 

INSSIR 

LAW 

-2 

4987 

06047 

R 

300133 

R 


ADD 

8UFF2 

498 8 

06050 

R 

040015 

A 


DAC 

R 1 5 

4989 

06051 

R 

220133 

R 


LAC* 

BUFF2 

4990 

06052 

R 

653606 

A 


LMQ’CLAC 

1 1 LLS + 6 

4991 

06053 

R 

723002 

A 


AAC 

2 

4992 

06054 

R 

040220 

R 


DAC 

IPOINT 

4993 

06055 

R 

740001 

A 


CM A 


4994 

06056 

R 

044103 

R 


DAC 

DEC IN 

4995 

06057 

R 

200170 

R 


LAC 

SYMBEG 

4996 

06060 

R 

040014 

A 


DAC 

R 1 4 

4997 

06061 

R 

304103 

R 


ADD 

DEC IN 

4998 

06062 

R 

040017 

A 


DAC 

R17 

4999 

06063 

R 

104034 

R 


CALL 

ST0R2 

5000 

06064 

R 

225040 

R 


LAC* 

SAVE 

5001 

06065 

R 

300220 

R 


ADO 

IPOINT 

5002 

06066 

R 

065040 

R 


DAC* 

SAVE 

5003 

06067 

R 

444103 

R 


ISZ 

DEC IN 

5004 

06070 

R 

220014 

A 


LAC* 

R 1 4 

5005 

06071 

R 

060017 

A 


DAC* 

R17 

5006 

06072 

R 

200014 

A 


LAC 

R 1 4 

5007 

06073 

R 

545040 

R 


SAD 

SAVE 

5008 

06074 

R 

605704 

R 


JMP 

STRDEF 

5009 

06075 

R 

606070 

R 


JMP 

.-5 

5010 





/ 



501 1 

06076 

R 

205434 

R 

FNDELE 

LAC 

SYMBOL 

5012 

06077 

R 

513756 

R 


AND 

(500000 

501 3 

06100 

R 

741200 

A 


SNA 


5014 

06101 

R 

606166 

R 


JMP 

SYMEX 

5015 

06102 

R 

740400 

A 


SNL 


5016 

06103 

R 

6061 37 

R 


JMP 

NUMELE 

5017 



006104 

R 

delelem= 

• • 


5018 






. I FPNZ 

F MONEY 

5019 

06104 

R 

750130 

A 


SMA’CLAI 

I AC 

5020 

06105 

R 

606110 

P 


JMP 

DELELO 

5021 

06106 

R 

54021 1 

R 


SAD 

VALF 

502? 

06107 

R 

000017 

A 


ERR J 7 


5023 






. ENDC 


5024 

06110 

R 

220017 

A 

DELELO 

LAC* 

R 1 7 

5025 








5026 

061 1 1 

R 

653606 

A 


LMQ’CLAC 

JLLS+6 

5027 

06112 

R 

723002 

A 


AAC 

2 

5028 

06113 

R 

044103 

R 

DELEL2 

DAC 

DEC IN 

5029 

06114 

R 

740001 

A 


CM A 


50 30 

06115 

R 

325040 

R 


ADD* 

SAVE 

5031 

06116 

R 

741100 

A 


SPA 


503? 

06117 

R 

606124 

R 


JMP 

ONLYONE 

5033 

06120 

R 

065040 

R 

DELEL1 

DAC* 

SAVE 

5034 

06121 

R 

205040 

R 


LAC 

SAVE 


/POINTS TO BEGINNING OF STR AC 


/STR OFFSET 

/COUNT FOR STORING SIR 


/NEW VALUE FOR SYMBES. 

/UPDATE SYMBEG & CK TSL OVERFLOW, 


/INCREASE ARRAY’S OFFSET 
/MAKE ROOM FOR NEW STR ELEMENT , 


/FINISHED? 

/YE S, GO INSERT NEW STR EL EM, 

/NO, CONTINUE. 

/ LOOKING FOR AND FOUND ARRAY ELEMENT, 
/ STRING IF LINK=1, NUMBERIC IF 0 

/ GOT ELEMENT? EXIT, LINK=1 FOR STRING 

/ FOUND NUMERIC ELEMENT 


/PUT? 

/NO 

/YES, F , P , ? 

/ARRAY CANNOT CONTAIN F.P.’!’! 

/FOUND STRING ELEMENT? KILL IT, CHECK 
/FOR PUT OR KILL 


/IS THIS ONLY ELEM IN ARRAY? 
/YES. 

/NO, SAVE ARRAY'S NEW OFFSET 
/AND 
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5035 

06122 

p 

047066 

R 


DAC 

NR STEP 

/A PTR 

TO IT. 



5036 

06123 

R 

605751 

R 


JMP 

0ELET3 





5037 





/ 







5038 

06124 

R 

047066 

R 

ONLYONE 

DAC 

WRSTEP 





5039 

06125 

R 

205434 

R 


LAC 

SYMBOL 





5040 

06126 

R 

742010 

A 


RTL 






5041 

06127 

R 

740010 

A 


RAL 






5042 

061 30 

R 

207066 

R 


LAC 

WRSTEP 





5043 

06131 

R 

740400 

A 


SNL 


/PUT OR 

KILL? 



5044 

06132 

R 

606120 

R 


JMP 

deleli 

/PUT, OK FOR PUT 



5045 

06133 

R 

777774 

A 


LAW 

- 4 

/ KILL 

ARRAY WITH ONLY ONE ELEMENT 

5046 

06134 

R 

300017 

A 


ADD 

R 1 7 





5047 

06135 

R 

040017 

A 


DAC 

R 1 7 





5048 

061 36 

R 

605746 

ft 


JMP 

DELETE 

/ GO KILL ENTIRE 

ARRAY 


5049 





/ 







5050 



006137 

R 

numele=. 







5051 






. I FPNZ 

FMONEY 





5052 

06137 

R 

751130 

A 


CLAUAC 

!SPA 





5053 






• ENDC 






5054 






, I F N 0 Z 

FMONEY 





5055 






SPAiCLC 






5056 






.ENDC 






5057 

06140 

R 

606144 

R 


JMP 

delnli 





5058 

06141 

R 

440017 

A 

oelnele 

ISZ 

R17 

/ FOUND 

MUM ELE? 

KILLI r 


5059 

06142 

R 

213705 

R 


LAC 

(2 





5060 

061.43 

R 

606113 

R 


JMP 

OELEL2 





5061 



006144 

R 

DELNLlr. 







5062 






. 1FPNZ 

FMONEY 





506 3 

06144 

R 

54021 1 

R 


SAD 

V4LF 





5064 

06145 

R 

000017 

A 


ERR17 






5065 






.ENDC 






5066 

06146 

R 

777777 

A 


LAW 

-1 





5067 

06147 

R 

540207 

R 


SAD 

VAL 





5068 

06150 

R 

606141 

R 


JMP 

OELNELE 

/ FOUND 

NUM ELE ? 

PUT STR 

ELE 

5069 

06151 

R 

606164 

R 


JMP 

PUTNIJM 

/ FOUND 

NUM ELE? 

PUT NUM 

ELE 

5070 





/ 







5071 





/MUM VAR FOUND: 

PUT OR KILL 





5072 





/ 







507 3 

06152 

R 

751101 

A 

numvar 

SPAiCLC 


/PUT OR 

KILL? 



5074 

06153 

9 

606157 

R 


JMP 

M U M V 1 

/PUT, 




5075 

06154 

R 

440017 

A 

DELNVAR 

ISZ 

R17 

/ FOUND 

NUM VAR? 

KILL IT 


5076 

06155 

R 

213705 

R 


LAC 

(2 





5077 

06156 

R 

605750 

R 


JMP 

DELET2 





5078 

06157 

R 

540207 

R 

NUMVl 

SAD 

VAL 





5079 

06160 

P 

606154 

R 


JMP 

DELNVAR 

/ FOUND 

NIJM VAR? 

PUT STR 

VAR 

5080 






.IFPNZ 

FMONEY 





5081 

06161 

R 

750030 

A 


CLAUAC 






5082 

061 62 

D 

540211 

R 


SAD 

VALE 





5083 

06163 

R 

606154 

R 


JMP 

DELNVAR 

/FOUND 

NUM VAR? 

PUT F.P. 

VAR. 

5084 






.ENDC 






5085 

061 64 

R 

200207 

R 

PUTNUM 

LAC 

VAL 

/ FOUND 

NUM VAR? 

PUT NUM 

VAR 

5086 

06165 

R 

060017 

A 


DAC* 

R17 
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MUMPS 

100 

SUBROUTINES 

FOR INTERPRETER 

5087 



006166 

R 

SYMEX=. 



5088 






.IFPNZ 

MONEY 

5089 

06166 

R 

400210 

R 


XCT 

MQNYSW 

5090 

06167 

R 

606173 

R 


JMP 

ESYMBOL 

5091 






.ENDC 


5092 

06170 

P 

440652 

R 


ISZ 

SWAPSW 

5093 

0 6171 

R 

741000 

A 


SKP 


5094 

06172 

R 

101533 

R 


JMS 

HANG 

5095 

06173 

R 

047041 

R 

ESYM8GL 

DAC 

WRPART 

5096 

06174 

R 

205434 

R 


LAC 

SYMBOL 

5097 

0 617 5 

R 

513657 

R 


AMD 

C 77777 

5098 

0 617 6 

R 

045434 

R 


DAC 

SYMBOL 

5099 

061 77 

R 

207041 

R 


LAC 

WRPART 

5100 

06200 

R 

625434 

R 


JMP* 

SYMBOL 

5101 






.EJECT 



/IGNORE SWAPSW CODING IF IN $M 


/TIME SLICE UP? 

/NO 

/YES, ALLOW' OTHERS TO RUN 
/PRESERVE AC STATUS 

/STRIP OFF IBT 2 TO ALLOW /*12JAH15* 

/64K PARTITON SCO TO RUN 
/RETRIEVE FOR $H 
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M U M P 5 

5 

100 

SUBROUTINES 

FOR INTERPRETER 


5102 





/XBQDL 

- BOOLEAN 

: EVALUATOR SUBROUTINE 

5103 





/ 




5104 





/ 

CALLS TO 

I booll. 

BOOLG , AND BOOLE ARE RECURSIVE 

5105 





/ 

CALLS TO 

i XREL1 

TO PROCESS NUMERIC RELATIONAL 

5106 





/ 

OPERATORS. 


5107 





/ 




5108 

06201 

R 

440234 

R 

UNOT 

ISZ 

BVAL 

/unary not 

5109 

06202 

R 

606211 

R 


JMP 

X BOOL 3 


5110 





/ 




5111 





/ENTRY 

TO BOOL 



5112 





/ 




5113 

0620.3 

R 

000000 

A 

BOOL 

0 


/*12JAH17* 

5114 

06204 

R 

213662 

R 


LAC 

C400O00 

/*12JAH17* 

5115 

06205 

R 

040234 

R 


0 AC 

BVAL 


5116 

06206 

R 

140232 

R 


DZM 

BSUM 


5117 

06207 

R 

750030 

A 

XR00L1 

CLA! JAC 



5118 

0621 0 

R 

040233 

R 

XB0QL2 

DAC 

BTERM 


5119 

0621 1 

R 

104660 

R 

X B 0 0 E 3 

CALL 

ochar.i 

/GET NEXT CHAR, 

5120 

06212 

R 

553760 

R 


SAD 

(47 

/» 

5121 

0621 3 

R. 

606201 

R 


JMP 

UNOT 

/UNARY NOT. 

5122 

0621 4 

P 

553753 

R 


S AO 

(50 

/ ( 

512 3 

06215 

R 

606375 

R 


JMP 

LPAREM 

/SUBEXPRESSION. 

5124 

06216 

R 

104710 

R 


CALL 

SUBOPT 

/DECREMENT QPOINT. 

5125 

06217 

R 

74400? 

A 


STL 


/SET TO ALLOW STR OR MJM RESULT. 

5126 

06220 

R 

107163 

R 


CALL 

EVAL 

/GO EVALUATE EXP ON THE LEFT 

5127 

06221 

R. 

553741 

R 


SAD 

(777777 

/W AS EXP AN SVE? 

5128 

06222 

R 

606264 

R 


JMP 

ITEXT1 

/YES , GO PROCESS. 

5129 

06223 

R 

043174 

R 


DAC 

OUT 

/NO, HOLD HUM RESULT. 

5130 

06224 

R 

140256 

R 


DZM 

900LL 


5131 

06225 

R 

140260 

R 


DZM 

BOOLE 


5132 

06226 

R 

140262 

R 


DZM 

BOOLG 


5133 

06227 

R 

104645 

R 


CALL 

ochar 

/GET CHAR. 

5134 

06230 

R 

553761 

R 


SAD 

(74 

/< 

5135 

06231 

R 

100256 

P 


CALL 

BOOLL 

/PROCESS (<) OPERATOR. 

5136 

06232 

R 

553762 

R 


SAD 

(75 

/ = 

5137 

06233 

R 

100260 

R 


CALL 

BOOLE 

/PROCESS (=) OPERATOR. 

5138 

06234 

R 

553763 

R 


SAD 

(76 

/> 

5139 

06235 

R 

100262 

R 


CALL 

BOOLG 

/PROCESS (>) OPERATOR. 

5140 

062 36 

R 

553754 

R 


SAD 

(51 

/ ) 

5141 

06237 

R 

606242 

R 


JMP 

. + 3 

/ YES, GO EVAL SUBSCR 

5142 

06240 

P 

200207 

R 

RODLNM 

LAC 

VAL 

/NUMBER ONLY, RETURN IT 

5.143 

062 41 

R 

606341 

R 


JMP 

REL2+1 


5144 

06242 

R 

200234 

R 


LAC 

BVAL 


5145 

06243 

R 

744020 

A 


RCR 


/TEST IF 400000 (NOT 400001,1, OR 0) 

5146 

06244 

R 

741600 

A 


SZLiSNA 



5147 

06245 

R 

606240 

R 


JMP 

800LNM 


5148 





/##### 

POPSTACK 

##### 

5149 

06246 

R 

777774 

A 


LAW 

-4 


5150 

06247 

R 

105103 

R 


CALL 

UN SAVE 


5151 

06250 

R 

046203 

R 


DAC 

BOOL 


5152 

06251 

R 

040233 

R 


DAC 

BTERM 


5153 

06252 

R 

040232 

R 


DAC 

8 SUM 
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MUMP' 

j 

100 

SUBROUTINES 

FOR I 

interpreter 

5154 

06253 

R 

040234 

R 


DAC 

BVAL 

5155 





/##### 


##### 

5156 

06254 

R 

140242 

R 


DZM 

8KCHAR 

5157 

06255 

R 

140215 

R 


DZM 

SUM 

5158 

06256 

R 

mm 

A 


LAW 

-1 

5159 

06257 

R 

040216 

R 


DAC 

TERM 

5160 

06260 

R 

104660 

R 


CALL 

OCHARI 

5161 

06261 

R 

200207 

R 


LAC 

V4L 

5162 

06262 

R 

140207 

R 


DZM 

VAL 

5163 

06263 

ft 

607332 

R 


JMP 

OP 1 

5164 





/ 



3 i o5 





/RELATION SET 

WEEN STRINGS 

5166 





/ 



5167 

06264 

R 

200133 

R 

ITEXT1 

LAC 

8UFF2 

5168 

06265 

R 

040225 

R 


DAC 

PQINT1 

5169 

06266 

R 

213732 

R 


LAC 

CXCOl 

5170 

06267 

R 

040226 

R 


DAC 

PLACE1 

5171 

06270 

R 

140224 

R 


DZM 

TEMPI 

5172 

0627? 

R 

104645 

R 


CALL 

□CHAR 

5173 

06272 

R 

553764 

R 


SAD 

(72 

517 4 

06273 

R 

606460 

R 


JMP 

OFF! N 

5175 

06274 

R 

043174 

R 


DAC 

OUT 

5176 

06275 

R 

105363 

R 


CALL 

SVE 

5177 

06276 

R 

040227 

R 


DAC 

TEMP2 

5178 

06277 

R 

200017 

A 


LAC 

R17 

5179 

06300 

R 

040230 

R 


DAC 

point? 

5180 

06301 

R 

200016 

A 


LAC 

R16 

5181 

06302 

R 

040231 

R 


DAC 

PLACE2 

5182 

0 6 30 3 

R 

203174 

R 


LAC 

OUT 

5183 

06 30 4 

R 

553724 

R 


SAD 

(33 

5184 

06305 

R 

606452 

R 


JMP 

CONTAINS 

51.85 

06306 

R 

553762 

R 


SAD 

(75 

5186 

06307 

R 

606423 

R 


JMP 

EQUAL 

5187 

06310 

R 

553751 

R 


SAD 

( 35 

5188 

0631 1 

P. 

606436 

R 


JMP 

FOLLOWS 

5189 

0631 2 

R 

000003 

A 


ERR 3 


5190 





/ 



5191 





/RELATION BETWEEN NUMERICS 

5192 





/ 



5193 

0631 3 

R 

1 04660 

R 

XRELl 

CALL 

OCHARI 

5194 

0631 4 

R 

553761 

R 


SAD 

(74 

5195 

06315 

R 

100256 

R 


CALL 

BOOLL 

5196 

0 6 316 

R 

553762 

R 


SAD 

(75 

5197 

0631 7 

R 

100260 

R 


CALL 

BOOLE 

5198 

06320 

R 

553763 

R 


SAD 

(76 

5199 

06321 

R 

100262 

R 


CALL 

BOOLG 

5200 

06322 

R 

104710 

R 


CALL 

SUBOPT 

5201 

063 2 3 

R 

107163 

R 


CALL 

EVAL 

5202 

06324 

R 

652000 

A 


LMQ 


520 3 

0 6 3 25 

P 

243174 

R 


XOR 

OUT 

5204 

06326 

R 

741210 

A 


SNA1PAL 

5205 

06327 

R 

606340 

R 


JMP 

REL2 


/SETUP VARIABLES FOR 
/RETURN TO EVAL. 


/INCREMENT OPQINT, IGNORE CHAR. 


/EXIT TO EVAL. 


/SETUP FOR CALLS TO CHARI: 

/ POINTS TO STR AC.. 

/* 1 2 JAH1 4* CHAR 
/* 1 2 JAH1 4* POS 
/ ENABLES EOM ESCAPE. 

/GET A CMND CHAR, 

/ : 

/ GO TO SYNTAX VERIFIER 
/SAVE CHAR. 

/FIND SVE IN SYMB TBL AND CHECK IT. 
/ENABLE EOM - OR ( " ) - ESC FROM CHAR?. 

/POINTS TO BEG. OF SVE. 

/M2JAH14* RESTORE 
/♦12JAH14* CHAR POS 

/LEFT BRACKET 

/PROCESS "CONTAINS" OPERATOR. 

/ = 

/PROCESS "STR EQUALS" OPERATOR. 

/RIGHT BRACKET 

/PROCESS "FOLLOWS" OPERATOR. 

/"SYNTX" 


/GFT NEXT CHAR. 

/< 

/PROCESS "LESS THAN" 

/ = 

/PROCESS "EQUAL" 

/> 

/PROCESS "GREATER THAN" 
/BACKUP OPOINT AND 
/GO TO EVALUATOR. 

/SAVE RES IN mq. 


/ LEFT=RIGHT 
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M U M P S 

too 

SUBROUTINES 

FOR INTERPRETER 

5?06 

06330 

p 

641002 

A 


LACQ 


5207 

06331 

ft 

740401 

A 


SNLiCMA 


520 3 

06332 

R 

303174 

R 


ADD 

OUT 

5209 

06333 

R 

740010 

A 


RAL 


5210 

06334 

R 

200256 

R 


LAC 

BQOLL 

5211 

06335 

R 

744400 

A 


SNL'CLL 


5212 

06336 

R 

200262 

R 


LAC 

800LG 

521 3 

06337 

R 

741000 

A 


SKP 


5214 

06340 

R 

200260 

R 

REL2 

LAC 

BOOLE 

5215 

06341 

R 

741200 

A 


SNA 


5216 

06342 

R 

751000 

A 

LOSE 

CL A 1 SKP 


5217 

0 6 3 4 3 

R 

750030 

A 

WIN 

CLA 1 I AC 


5218 

06344 

P 

240234 

,R 


XOR 

BVAL 

5219 

06345 

R 

513667 

R 


AND 

(i 

5220 

06346 

R 

040234 

R 


DAC 

BVAL 

5221 

06347 

R 

104645 

R 


CALL 

OCHAR 

5222 

06350 

R 

553765 

R 


SAD 

(46 

5223 

06351 

R 

606363 

R 


JMP 

BAND 

5224 

H6352 

R 

553766 

R 


SAD 

(41 

5225 

06353 

R 

606367 

R 


JMP 

BOR 

5226 

06354 

R 

553653 

R 


SAD 

(40 

5227 

06355 

R 

606416 

R 


JAAP 

8EQM 

5228 

06356 

R 

553754 

R 


SAD 

(51 

5229 

06357 

R 

606416 

R 


JMP 

8EOM 

5230 

06360 

R 

553767 

R 


SAD 

(54 

5231 

06361 

R 

606416 

R 


JMP 

BEOM 

5232 

5233 

06362 

R 

000003 

A 

/ 

ERR 3 


5234 





/HANDLE 

AND OPERATOR 

52 35 





/ 



5236 

06363 

R 

200234 

R 

BAND 

LAC 

BVAL 

5237 

06364 

R 

500233 

R 


AMD 

BTERM 

5238 

06365 

R 

140234 

R 


DZM 

BVAL 

52 39 
5240 

06366 

R 

606210 

R 

/ 

JMP 

X800L2 

5241 





/handle 

OR OPERATOR 

5242 





/ 



5243 

06367 

R 

200234 

R 

BOR 

LAC 

BVAL 

5244 

06370 

R 

500233 

R 


AND 

BTERM 

5245 

06371 

R 

740200 

A 


SZA 


5246 

06372 

R 

040232 

R 


DAC 

BSUM 

5247 

06373 

R 

140234 

R 


DZM 

BVAL 

5248 

5249 

06374 

R 

606207 

R 

/ 

JMP 

X BOO LI 

5250 





/HANDLE 

SUBEXPRESSIONS 

5251 





/ 



5252 





/##### 

SAVE ON 

STACK. #*### 

5253 

06375 

P 

777774 

A 

LPAREN 

LAW 

-4 

5254 

0637b 

R 

105040 

R 


CALL 

SAVE 

5255 

06377 

R 

200234 

R 


LAC 

BVAL 

5256 

06400 

R 

200232 

R 


LAC 

BSUM 

5257 

06401 

R 

200233 

R 


LAC 

BTERM 


/MOT EQUAL. 


/(LEFT EXP) > (RIGHT EXP) 
/(LEFT EXP) < (RIGHT EXP) 


/GET A CHAR. 

/& 

/PROCESS BOOLEAN AMD. 
/I 

/PROCESS BOOLEAN OR. 
/SPACE 

/ ) 

/. 

/ M S V M T X ” 
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M ! IMP' 

5 

100 

SUBROUTI NFS 

FOR INTERPRETER 


5258 

06402 

R 

206203 

R 


LAC 

BOOL 


5259 





/##### 


##### 

/RECURSIVE CALL, FOR 

5260 

06403 

R 

106203 

R 


CALL 

BOOL 

/BOOLEAN SUBEXPRESSION. 

5261 

06404 

R 

040234 

R 


DAC 

8 V AL 


5262 





/####* 

PQPSTACK ####* 


5263 

06405 

R 

777774 

A 


LAW 

-4 


5264 

06406 

P 

105103 

R 


CALL 

UN SAVE 


5265 

06407 

R 

046203 

R 


DAC 

BOOL 


5266 

06410 

R 

040233 

R 


DAC 

QTERM 


5267 

0641 1 

R 

040232 

R 


DAC 

0SUM 


5268 

06412 

R 

240234 

R 


XGR 

BV AL 

/CARRY THROUGH B V AL FROM SUBEXP. 

5269 





/## # 


4 it ■*! M XL 
# ff «• # 4 


5270 

0641 3 

R 

040234 

R 


DAC 

0 VAL 


5271 

06414 

P 

104660 

R 


CALL 

□CHARI 

/INDEX OPGINT, 

5272 

0 6 415 

R 

606347 

R 


JMP 

NIN + 4 


5273 





/ 




5274 





/ALL DOME WITH 

BOOLEAN 


5275 





/ 




5276 

0641 6 

R 

200234 

R 

BEOM 

LAC 

8 V AL 


5277 

06417 

R 

500233 

R 


AMD 

8TERM 


5278 

06420 

R 

741200 

A 


SNA 



5279 

06421 

R 

200232 

R 


LAC 

BSIJM 


5280 

06422 

R 

626203 

R 


JMP* 

BOOL 


5281 





/ 




5282 





/string 

EQUALS 



5283 





/ 




5284 





/ 

(DOES STR1 EQUAL STR2? ) 

5285 





/ 




5286 

06423 

R 

104770 

R 

EQUAL 

CALL 

CHARI 

/GET CHAR FROM STR1 

5287 

06424 

R 

606433 

R 


JMP 

EQUAL? 

/R1SEOM FOUND IN STRl. 

5288 

06425 

R 

044770 

R 


DAC 

CHARI 

/R2: SAVE CHAR. 

5289 

06426 

R 

105014 

R 


CALL 

CHAR2 

/GET CHAR FROM STR2 . 

5290 

06427 

R 

606342 

R 


JMP 

LOSE 

/RlsEOM OCCURS IN STR2 BEFORE STRl 

5291 

06430 

R 

544770 

R 


SAD 

CHARI 

/R2 : STR2 CHAR = STRl CHAR? 

5292 

06431 

R 

606423 

R 


JMP 

equal 

/YES, CONTINUE. 

5 29 3 

0643? 

R 

606342 

R 


JMP 

LOSE 

/NO, YOU LOSE. 

5294 

06433 

R 

105014 

R 

EQUAL2 

CALL 

CHAR2 

/GET NEXT CHAR IN STR2 . 

5295 

06434 

R 

606343 

R 


JMP 

WIN 

/EOM IS NEXT CHAR IN STR2 ALSO. 

5296 

06435 

R 

606342 

R 


JMP 

LOSE 

/EOM NOT NEXT IN STR2 » YOU LOSE. 

6297 





/ 




5298 





/STRING 

FOLLOWS 



5299 





/ 




5300 





/ 

(DOES STRl FOLLOW STR2 

IN 6-BIT COLLATING SEQUENCE?) 

5301 





/ 




5302 

06436 

R 

104770 

R 

FOLLOWS 

CALL 

CHARI 

/GET CHAR FROM STRl. 

530 3 

06437 

R 

606342 

R 


JMP 

LOSE 

/RlS EOM IS LOSER. 

5304 

06440 

R 

044770 

R 


DAC 

CHARI 

/R2: SAVE CHAR. 

5305 

0 6 4 41 

P 

1 05014 

R 


CALL 

CHAR2 

/GET CHAR FROM STR2. 

5306 

06442 

R 

606343 

9 


JMP 

WIN 

/RlS EOM IS WINNER. 

5 3 07 

06443 

R 

740001 

A 


CM A 


/R2 : 

5308 

06 A 44 

R 

304770 

R 


ADD 

CHARI 

/CHAR 1 -CH AR2 

5309 

06445 

R 

740101 

A 


SMA'CMA 
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MUMPS 

100 

SUBROUTINES 

FOR INTERPRETER 

• 

5310 

06446 

R 

606343 

R 


JMP 

WIN 

/CHARI FOLLOWS, YOU WIN. 

5311 

06447 

R 

740200 

A 


SZA 


/CHARI =CHAR2? 

5312 

06450 

R 

606342 

R 


JMP 

LOSE 

/NO, YOU LOSE, 

5313 

06451 

R 

606436 

R 


JMP ' 

FOLLOWS 

/YES, CONTINUE. 

5314 





/ 




5315 





/STRING 

CONTAINS 


5316 





/ 




5317 





/ 

(DOES 

STR 1 CONTAIN 

STR 2 ? ) 

5 319 





/ 




5310 

06452 

R 

140207 

R 

contain 

DZM 

VAL 

/SETUP TO START SEARCH AT BEG. OF S’TRl, 

5320 

06453 

R 

106621 

R 


CALL 

CONT 

/RE-ENTRANT SU9R. FOR "CONTAINS” 

5321 

064 54 

R 

200207 

R 


LAC 

VAL 


5322 

06455 

R 

740200 

A 


SZA 



5323 

06456 

R 

606343 

R 


JMP 

WIN 

/FOUND. 

5324 

06457 

R 

606342 

R 


JMP 

LOSE 

/NOT FOUND. 

5325 





/ 




5326 





/SYNTAX 

VERIFIER (PATTERN 

VERIFICATION) 

5327 





/ 




5329 

06460 

R 

200222 

R 

DEFIN 

LAC 

□POINT 


5329 

06461 

R 

040230 

R 


DAC 

POINT? 

/SETUP POINTER FOR CHAR 2 

5330 

06462 

R 

200223 

R 


LAC 

□PLACE 

/*12JAH14* SET UP 

5 33 1 

06463 

R 

040231 

R 


DAC 

PL ACE 2 

/*12JAH14* CHAR POS 

5332 

0 6 4 6 4 

R 

140227 

R 


DZM 

TEMP2 

/SETUP EOM RETURN FROM CHAR2 . 

5333 

06465 

R 

105014 

R 

DEFO 

CALL 

CHAR2 

/GET A PATTERN CHAR. 

5334 

06466 

R 

000003 

A 


ERR3 


/ " S Y NT X " - EOM 

5 335 

06467 

R 

103724 

R 


CALL 

SYNTAX 

/TEST CHAR TYPE. 

5336 

06470 

R 

606570 

R 


JMP 

DEE10 

/A 

5337 

06471 

R 

606522 

R 


JMP 

OEF2 

/ M 

5 3 39 

06472 

R 

553755 

R 


SAD 

(42 

/P - IS IT A 

5339 

06473 

R 

606504 

R 


JMP 

DEF1 

/YES, GO PROCESS, 

5340 

06474 

R 

104770 

R 


CALL ' 

CHARI 

/NO, GET A CHAR FROM THE SVE, 

5341 

06475 

R 

741000 

A 


SKP 


/EOM, END OF SVE - WIN 

5342 

06476 

R 

606563 

R 


JMP 

DEF6 

/SETUP FOR LOSE. 

5343 

06477 

R. 

200230 

R 


LAC 

POINT? 


5344 

06500 

P 

040222 

R 


DAC 

□POINT 

/SETUP FOR WIN. 

5345 

06501 

R 

200231 

R 


LAC 

PLACE? 

/*12JAH14* SET UP 

5 346 

06502 

R 

040223 

R 


DAC 

□PLACE 

/*12JAH14* CHAR POS 

5347 

06503 

R 

606343 

R 


JMP 

WIN 


5349 

06504 

R 

10501 4 

R 

DEE1 

CALL 

CHAR2 

/GET A PATTERN CHAR. 

5349 

06505 

R 

000003 

A 


ERR3 


/"SYNTX" - EOM 

5350 

06506 

R 

553755 

R 


SAD 

(42 

/IS IT ANOTHER » 

5351 

06507 

R 

606465 

R 


JMP 

DEFO 

/YES, FINISHED LITERAL MATCH. 

5352 

06510 

R 

045014 

R 


DAC 

CHAR2 

/NO, SAVE THE CHAR. 

5353 

0651 1 

R 

104770 

P 


CALL 

CHARI 

/GET A CHAR FROM SVE. 

5354 

06512 

P. 

606515 

R 


JMP 

DEF 3 

/EOM, 

5355 

06513 

R 

545014 

R 


SAD 

CHAR? 

/SAME AS LITERAL CHAR? 

5356 

0 6514 

R 

606504 

R 


IMP 

DEF 1 

/YES, CONTINUE. 

5357 





/ 




5358 





/index 

P0INT2 

PAST CLOSING 

QUOTES, 

5359 





/ 




5360 

06515 

R 

10501 4 

R 

DEE3 

CALL 

CHAR? 

/GET A PATTERN CHAR. 

5361 

06516 

R 

000003 

A 


ERR 3 


/"SYNTX" - EOM 
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5 36 2 

06517 

R 

553755 

R 


SAD 

(42 

/IS IT A " 

5363 

06520 

R 

606554 

R 


JMP 

DEF5 

/YES. 

5 3 6 4 

06521 

K 

606515 

R 


JMP 

DEF 3 

/NO 

5365 





/ 




5 366 





/PASS SPECIFIED 

NO OF CHARS OF 

TYPE INDICATED. 

5367 





/ 




5368 

06522 

R 

51 3743 

R 

DEF2 

AND 

(17 


5369 

06523 

R 

740001 

A 


CM A 


/MINUS PATTERN REPEAT COUNT. 

5370 

06524 

R 

044645 

R 


DAC 

□ CHAR 


5371 

06525 

R 

105014 

R 


CALL 

CHAR2 

/GET A PATTERN CHAR. 

5372 

06526 

R 

000003 

A 


ERR 3 


/"SYNTX" - EQM 

5373 

06527 

R 

103724 

R 


CALL 

SYNTAX 

/IS NEXT CHAR NUMERIC ALSO? (NOT ALLOWING 

5374 

06530 

R 

606533 

R 


JMP 

DEF21 

/>1 DIGIT SPECIFICATION) NO-- ALPHA--QK 

5375 

06531 

R 

000003 

A 


ERR 3 


/NUMERIC — SYNTX 

5376 

06532 

R 

000003 

A 


ERR 3 


/PUNCTUATION — SYNTX 

5377 

065 33 

R. 

045014 

R 

DEF21 

DAC 

CHAR2 

/SAVE PATT VERIF CODE 

5378 

06534 

R 

444645 

R 

DEF 4 

ISZ 

OCHAR 

/FINISHED WITH THIS PATTERN TYPE? 

5379 

06535 

R 

741000 

A 


SKP 



5380 

06536 

R 

606465 

R 


JMP 

DEFO 

/YES, GET NEXT TYPE. 

5 381 

06537 

R 

104770 

R 


CALL 

CHARI 

/NO. GET CHAR FROM SY£. 

538? 

06540 

P 

606554 

R 


JMP 

DEF5 

/Rl: EOM IN SVE. 

5383 

06541 

R 

103724 

R 


CALL 

SYNTAX 

/R2: TEST CHAR TYPE. 

5384 

06542 

R 

606550 

R 


JMP 

. f 6 

/A - 01 MASK 

5385 

06543 

R 

606546 

R 


JMP 

.+3 

/ N - 16 MASK 

5386 

06544 

R 

760020 

A 


LAw 

20 

/P - 20 MASK 

5 38 7 

06545 

R 

606551 

K 


JMP 

.+4 


5383 

06546 

R 

760016 

A 


LAW 

16 


5389 

06547 

R 

60b55 1 

R 


JMP 

,+2 


5 3 90 

06550 

R 

760001 

A 


LAW 

01 


5391 

06551 

R 

505014 

R 


AND 

CHAR? 

/MASK PATTERN TYPE SPECIFICATION. 

5392 

06552 

R 

740200 

A 


SZA 


/FAIL IF ZERO. 

5 39 3 

06553 

R 

6065 34 

R 


JMP 

DEF4 

/PASS, CONTINUE. 

5394 





/ 




5395 





/INDEX 

P0INT2 TO FIRST PUNCT THAT IS NOT ( " ) OR WITHIN (") 

5396 





/(THERE 

MAY BE 

A (I) WITH ANOTHER PATTERN MATCH) 

5397 





/ 




5 390 

06554 

R 

105014 

R 

DEF 5 

CALL 

CHAR2 

/GET A PATTERN CHAR. 

5399 

06555 

R 

000003 

A 


ERR 3 


/"SYNTX” - EOM 

5400 

06556 

R 

103724 

R 


CALL 

SYNTAX 

/TEST CHAR TYPE. 

5401 

06557 

P 

606554 

R 


JMP 

0EF5 

/ A 

5402 

06560 

R 

606554 

R 


JMP 

DEF5 

/N 

540 3 

06561 

R 

553755 

R 


SAD 

(42 

/P - IS IT A " 

5404 

06562 

R 

606515 

R 


JMP 

DEF 3 

/YES. 

5405 

06563 

R 

200230 

R 

DEF6 

LAC 

P0INT2 


5406 

06564 

R 

040222 

R 


DAC 

□ POINT 

/SETUP FOR LOSE. 

5407 

06565 

R 

200231 

R 


LAC 

PLACE? 

/*12JAH14* SET UP 

5408 

06566 

R 

040223 

R 


DAC 

□PLACE 

/*12JAH14* CHAR POS 

5409 

06567 

R 

606342 

R 


JMP 

LOSE 


5410 





/ 




541 1 





/PASS UNSPECIFIED NO. OF CHARS. 

OF TYPE INDICATED. 

5412 





/ 




541 3 

06570 

R 

045014 

R 

DEF 1 0 

DAC 

CHAR? 

/SAVE PATTERN CHAR. 
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06571 

R 

104770 

R 

DEF12 

CALL 

CHARI 

5415 

06572 

R 

606606 

R 


JMP 

DEF1 1 

5416 

06573 

R 

103724 

R 


CALL 

SYNTAX 

5417 

06574 

R 

606602 

R 


JMP 

, + 6 

541 8 

06575 

p 

606600 

R 


JMP 

. + 3 

541 9 

06576 

R 

760020 

A 


LAW 

20 

5420 

06577 

R 

606603 

R 


JMP 

. +4 

5421 

06600 

R 

760016 

A 


LAW 

16 

5422 

06601 

R 

606603 

R 


JMP 

• + 2 

5423 

06602 

R 

760001 

A 


LAW 

01 

5424 

06603 

R. 

505014 

R 


AND 

CHAR2 

5425 

06604 

R 

740200 

A 


SZA 


5426 

06605 

R 

606571 

R 


JMP 

DEF1 2 

5427 

06606 

R 

777777 

A 

DEF11 

LAW 

»1 

5428 

06607 

R 

340226 

R 


TAD 

PL AC El 

5429 

06610 

R 

553750 

R 


SAD 

(XCOl-1 

5430 

0661 1 

R 

60661 3 

R 


JMP 

DEFUA 

5431 

06612 

R 

606617 

R 


JMP 

QEF11B 

5432 

0661 3 

R 

777777 

A 

DEF11A 

LAW 

-1 

543 3 

06614 

R 

340225 

R 


TAD 

PQINT1 

5 4 3 4 

06615 

R 

040225 

R 


DAC 

PQINT1 

5435 

06616 

R 

213736 

R 


LAC 

( XC03 

5436 

06617 

p 

040226 

P 

DEF11B 

DAC 

PLACE1 

5437 

06620 

R 

606465 

R 


JMP 

DEFO 

5438 






• E JE 

CT 


/*12JAH12* GET CHAR FROM SVE 

/Rl? EGM IN SVE 

/R2: TEST CHAR TYPE 

/ALPHA - 01 MASK 

/MUM - 16 MASK 

/PUNCT - 20 MASK 


/MASK PATTERN TYPE SPECIFICATION, 
/FAIL IF ZERO, 

/*12JAH12* PASS, CONTINUE (NO COUNT) 
/*12JAH14* STEP BACK 
/* 1 2 JAH1 4* ONE CHAR 
/M2JAH14* OUT OF CURRENT WORD? 

/* 1 2 JAH1 4* YES 

/* 1 2 JAH1 4t MQ 

/*! 2JAH.14* MOVE PTR 

/ * 1 2 JAH1 4* s^vORD BACK ONE 

/*! 2 JAH1 4* 

/♦12JAH14* POINT TO P35 3 
/* 1 2 J AH1 4* SAVE POS 
/PATTERN SPEC FOLLOWS. 
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5 4 3 9 





/XCQMT 

- CONTAINS SUBROUTINE 


5440 





/ 





5441 





/ 

(IS STR2 CONTAINED WITHIN STR1?) 

5442 





/ 

(USED 

BY $ F AND 

"CONTAINS OPERATOR" PROCESSING) 

5443 





/ 





5444 





/ 





5445 

06621 

R 

000000 

A 

CONT 

0 




5445 

06622 

R 

200230 

R 


LAC 

POINT? 



5447 

06623 

R 

045040 

R 


DAC 

SAVE 


/POINTS TO 8EG. OF STR2 

5 44 8 

06624 

R 

200231 

R 


LAC 

PLACE2 

/* 1 2 JAH 

14* SAVE CHAR 

5449 

06625 

R 

040272 

R 


DAC 

GLOBAL 


/* 1 2 JAH1 4* POS 

5450 

06626 

R 

440207 

R 


ISZ 

V'AL 



5451 

06627 

R 

105014 

R 

CONTI 

CALL 

CHAR2 


/GET CHAR FROM STR2 . 

5452 

06630 

R 

626621 

R 


JMP* 

CONT 


/ R 1 : END OF STR2 

5 45 3 

06631 

R 

045014 

R 


DAC 

CHAR2 


/R2: SAVE STR2 CHAR. 

5454 

06632 

R 

104770 

R 

CONT2 

CALL 

CHARI 


/GET CHAR FROM STR1 . 

5455 

0663 3 

R 

606671 

R 


JMP 

C0NT4 


/PI : END OF STR1 - LOSS 

5456 

06634 

R 

440207 

R 


ISZ 

VAL 


/R2: 

5457 

06635 

R 

545014 

R 


SAD 

CHAR? 


/ S T R 1 CHAR = STR2 CHAR? 

5456 

066 36 

R 

741000 

A 


SKP 




5459 

06637 

R 

606632 

R 


JMP 

C0NT2 


/NO, KEEP LOOKING, 

5460 

06640 

R 

200225 

R 


LAC 

P0INT1 


/YES. 

5 461 

06641 

R 

045103 

R 


DAC 

UNSAVE 



5462 

06642 

R 

200226 

R 


LAC 

PLACE1 


/*12JAH!4* SAVE CHAR 

5463 

06643 

R 

040270 

R 


DAC 

GSYM 


/* 1 2 JAH1 4* POS 

5464 

06544 

R 

200207 

R 


LAC 

VAL 



5465 

06645 

R 

045201 

R 


DAC 

v, n c, o r\ 



5 466 

06646 

R 

105014 

R 

CONT3 

CALL 

CHAR 2 


/GET CHAR FROM STR2 

5467 

06647 

R 

626621 

R 


JMP* 

CONT 


/Rl: END OF STR2 -WIN 

5468 

06650 

R 

045014 

R 


DAC 

CHAR? 


/R2: SAVE STR2 CHAR 

5469 

06651 

R 

104770 

R 


CALL 

CHARI 


/GET CHAR FROM STR1 

5470 

06652 

R 

606671 

R 


JMP 

CONT4 


/Rl : END OF STR 1 -LOSS. 

5471 

06653 

R 

440207 

R 


ISZ 

VAL 


/R2: 

5472 

0 6654 

R 

545014 

R 


SAD 

CHAR? 


/STR1 CHAR = STR2 CHAR? 

5473 

06655 

R 

606646 

R 


JMP 

CONT3 


/YES, KEEP LOOKING, 

5474 

06656 

R 

205201 

R 


LAC 

CHECK 


/NO. 

5475 

06657 

R 

040207 

R 


DAC 

VAL 



5476 

0 6 660 

R 

200270 

R 


LAC 

GSYM 


/* 1 2 JAH1 4* RESOTRE 

5477 

06661 

R 

040226 

R 


DAC 

PLACE1 


/M2JAH14* CHAR 

5479 

06662 

R 

20027? 

R 


LAC 

GLOBAL 


/*1?JAH14* POSITION 

5479 

06663 

R 

040231 

R 


DAC 

PLACE2 


/* 1 2 JAH1 4* INDICATORS* 

5480 

06664 

R 

205103 

R 


LAC 

iJMSAVE 


/RESTORE POINTERS. 

5481 

06665 

R 

040225 

R 


DAC 

pointi 



5482 

06666 

R 

205040 

R 


LAC 

SAVE 



5483 

06667 

R 

040230 

R 


DAC 

POINT? 



5484 

06670 

R 

606627 

R 


JMP 

CONTI 


/START LOOKING AGAIN. 

5485 

06671 

R 

1 40207 

R 

C0NT4 

DZM 

V A h 



5486 

0667? 

R 

626621 

R 


JMP* 

CONT 


/LOSE EXIT. 

5487 






.EJECT 





/* 1 2 JAH1 7 * 
/*12JAH17* 
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548ft 





/format subroutine 


5489 





/ 



5490 





/setting of link at exit: link 

SET = ' FORMAT 

5491 





/ LINK 

CLEAR = OTHER 


5492 





/ 



549 ft 

06673 

R 

000000 

A 

FORMAT 0 



5494 

06674 

R 

104660 

R 

xfqrmat call 

□chart 


5495 

06675 

R 

744002 

A 

XFO STL 



5496 

06676 

R 

553766 

R 

S AO 

(41 

/i 

5497 

06677 

R 

606763 

R 

JMP 

LINE 


5498 

06700 

R 

553755 

R 

SAD 

(42 

/" 

5499 

06701 

R 

606747 

R 

JMP 

QUOTE 


5500 

06702 

R 

553770 

R 

SAD 

(43 

/# 

5501 

06703 

R 

606764 

R 

JMP 

PAGE 


5502 

06704 

R 

553702 

R 

SAD 

(77 

/? 

5503 

06705 

R 

606713 

R 

JMP 

QUEST 


5504 

06706 

R 

553760 

R 

SAD 

(47 

/ ' 

5505 

06707 

R 

626673 

R 

JMP* 

FORMAT 


5506 

06710 

R 

104710 

R 

XF1 CALL 

SUBOPT 


5507 

0671 1 

R 

744000 

A 

CLL 



550« 

06712 

P 

626673 

R 

JMP* 

format 


5509 





/QUESTION MARK 

AS TABBING MECHANISM 

5510 

0671 3 

R 

744000 

A 

QUEST CLL 



551 1 

0671 4 

R 

107163 

R 

CALL 

EVAL 


5512 

06715 

R 

741100 

A 

SPA 



551 ft 

06716 

R 

000005 

A 

ERRS 


/"MINUS" 

5514 

06717 

R 

220150 

R 

LAC* 

XVAR 


5515 

06720 

R 

740031 

A 

TC A 



5516 

06721 

R 

360141 

R 

TAD* 

MVAR 

/ % M - $ X 

5517 

06722 

R 

740100 

A 

SMA 



5518 

06723 

R 

741000 

A 

SKP 


/USE V A L - % M 

5519 

06724 

R 

606727 

R 

JMP 

. + 3 

/USE VAL-SX 

5520 

06725 

R 

220141 

R 

LAC* 

MVAR 


5521 

06726 

R 

741000 

A 

SKP 



5522 

06727 

R 

220150 

R 

LAC* 

XVAR 


552ft 

06730 

R 

740031 

A 

TC A 



5524 

06731 

R 

340207 

R 

TAD 

VAL 


5525 

06732 

R 

744000 

A 

CLL 



5526 

06733 

R 

657323 

A 

ID I VS; 

144 



06734 

R 

0001 44 

A 




5527 

06735 

R 

641002 

A 

LACQ 



5528 

06736 

R 

740031 

A 

TCA 



5529 

06737 

R 

740100 

A 

SMA 



5530 

06740 

R 

606777 

R 

JMP 

NEXT 

/NO ACTION NECESSARY 

5531 

06741 

R 

040207 

R 

DAC 

VAL 


5532 

06742 

R 

760040 

A 

LAw' 

40 

/SPACE 

553 ft 

06743 

R 

103174 

R 

CALL 

GUT 


55 ft 4 

0 6 7 14 

p 

440207 

R 

ISZ 

VAL 


5535 

06745 

R 

606742 

R 

JMP 

.-3 


5536 

06746 

R 

606777 

R 

JMP 

NEXT 


5537 





/FREE TEXT 



5538 

06747 

R 

104660 

R 

QUOTE CALL 

OCHARI 



/*12JAH17* 
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5539 

0 6 7 5 0 

D 

741200 

A 


SNA 



5540 

06751 

R 

000003 

A 


ERR 3 


/"SYNTX" 

5541 

06752 

R 

553755 

R 


SAD 

(42 

/CLOSING QUOTE? 

5542 

06753 

8 

606756 

R 


JMP 

QIJOTE1 


5543 

06754 

R 

103174 

R 


CALL 

OUT 


5544 

06755 

R 

606747 

R 


JMP 

QUOTE 


5545 





/ 




5546 

06756 

R 

104660 

R 

QUOTE1 

CALL 

QCHART 


5547 

06757 

R 

744000 

A 


CLL 



5548 

06760 

R 

553742 

R 


SAD 

(56 

/. 

5549 

06761 

R 

626673 

R 


JMP* 

FORMAT 


5550 

0 67 62 

R 

607000 

R 


JMP 

NEXT+1 


5551 





/ 




5552 





/LINE FEED AND 

PAGE FEED 


5553 

06763 

R 

751000 

A 

LINE 

CLA‘SKP 


5554 

06764 

R 

760034 

A 

PAGE 

LAW 

34 


5555 

06765 

R 

103174 

R 


CALL 

OUT 


5556 

06 7 66 

R 

1 04660 

R 


CALL 

□CHAR I 


5557 

06767 

R 

607000 

R 


JMP 

NEXT+1 


5558 





/PUT AWAY THE 

VARIABLE 


5559 

06770 

R 

200204 

R 

FORM2 

LAC 

SYMS 


5560 

06771 

R 

040177 

R 


DAC 

SYM 


5561 

06772 

R 

200205 

R 


LAC 

SCRIPS 


5562 

06773 

R 

040200 

R 


DAC 

SCRIP 


5563 






.IEPNZ 

fmqney 

/*12JAH6* 

5564 

06774 

R 

140211 

R 


DZM 

VALF 

/INHIBIT TYPE-OUT OF F.P, VAR *12JAH6* 

5565 






. ENDC 


/* 1 2 J AH6* 

5566 

06775 

R 

754002 

A 


STL1CLA 


5567 

06776 

R 

105434 

R 


call 

SYMBOL 

/ PUT 

5568 

06777 

R 

104645 

R 

NEXT 

CALL 

ochar 


5569 

0 7 000 

R 

553767 

R 


SAD 

(54 

/IF A COMMA, GET NEXT CHAR 

5570 

07001 

R 

606674 

R 


JMP 

XFORMAT 

/AND CHECK IT FOR FORMAT CTL 

5571 

07002 

R 

553653 

P 


SAD 

(40 

/SPACE, END OF COMMAND 

557? 

07003 

u 

607010 

R 


JMP 

NEXT? 


5573 

07004 

R 

553733 

R 


SAD 

(73 

/: END OF COMMAND 

5574 

07005 

R 

607010 

R 


JMP 

NEXT? 


5575 

07006 

R 

740200 

A 


SZA 


/EQM , END OF COMMAND 

5576 

07007 

R 

606675 

R 


JMP 

XFO 


5577 

07010 

R 

652000 

A 

NEXT2 

LMQ 



5579 

0701 1 

R 

200162 

R 

NEXTl 

LAC 

PRNCDV 

/RESTORE 10 TO PRINCIPLE DEVICE 

5579 

07012 

R 

040020 

A 


DAC 

R20 


5580 

07013 

R 

353771 

R 


TAD 

(JMP OUTTAB-1 


5581 

07014 

R 

040164 

R 


DAC 

OUTPUT 


5582 

0 7 0 1 5 

R 

35377? 

R 


TAD 

(DEV 


5583 

0701 6 

R 

040163 

R 


DAC 

INPUT 


5584 

07017 

R 

641002 

A 


L AC Q 



5585 

0 7 0 20 

R 

603574 

R 


JMP 

dtable+i 


5596 





/ 




5587 

07021 

R 

000000 

A 

TSTR 

0 


/* 1 2 JAH 1 7 * 

5599 

07022 

R 

200017 

A 


LAC 

R 1 7 

/TYPE STRING VARIABLE /*12JAH17* 

5589 

07023 

R 

740030 

A 


I AC 



5590 

07024 

R 

040225 

R 


DAC 

P 0 INTI 

/ SET UP CHARACTER POINTER 
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5591 

07025 

R 

213732 

R 

LAC 

CXC01 

/* 1 2 JAR 1 4* 

INIT 


5592 

07026 

R 

040226 

R 

DAC 

PL ACE 1 

/*12JAH14* 

CHAR POS 


5593 

07027 

P 

140224 

R 

DZM 

TEMPI 

/ TERMINATOR FOR STRING 


5594 

07030 

R 

104770 

R 

XSTR1 CALL 

CHARI 

/*12JAH12* 

GET A CHARACTER 


5595 

07031 

P 

607034 

R 

JMP 

XTSTR2 

/* t 2 JAH1 2* 

Rl: TERMINATOR 


5595 

070 32 

R 

103174 

R 

CALL 

GUT 

/ R2 : TYPE 

CHARACTER IN AC 


5597 

0 7 0 3 3 

R 

607030 

R 

JMP 

XSTRJ 

/*12JAH12* 



5598 

07034 

R 

220017 

A 

XTSTR2 LAC* 

R17 

/* 1 2 JAH1 2* 

GET OFFSET 


5599 

07035 

R 

653606 

A 

LMQ iCLAC 1 LLS+6 




5600 

07036 

R 

300017 

A 

ADD 

R17 

/ POINTING 

TO NEXT VARIABLE 


5601 

07037 

R 

040017 

A 

DAC 

R17 




5602 

07040 

R 

627021 

R 

JMP* 

TSTR 




5603 





/SUBROUTINE TO 

PRINT PARTS 




5604 

07041 

R 

000000 

A 

WRPART 0 




/*12JAH17* 

5605 

07042 

P 

760000 

A 

XWRPART LA* 

00 




5606 

07043 

R 

103174 

R 

CALL 

OUT 




5607 

07044 

R 

200016 

A 

LAC 

R16 




5608 

07045 

R 

045151 

R 

DAC 

PART 




5609 

07046 

R 

225151 

R 

LAC* 

PART 




5610 

07047 

R 

1 07066 

R 

CALL 

WRSTEP 




561 1 

07050 

R 

220016 

A 

LAC* 

R16 




5612 

07051 

R 

653606 

A 

LMQ ! CLAC 1 LLS+6 




561 3 

0 7 0 5 2 

R 

300016 

A 

ADD 

R16 




5614 

0 7 0 5 3 

R 

540167 

R 

SAD 

END 




5615 

07054 

R 

613453 

R 

JMP 

WRITE4 /IN 

CASE OF WRITE , 

ALL 


5616 

07055 

R 

040016 

A 

DAC 

R16 




5617 

07056 

R 

220016 

A 

LAC* 

R16 




5618 

07057 

R 

653323 

A 

IDIV? 

144 





07060 

R 

000144 

A 






5619 

07061 

R 

641002 

A 

LACQ 





5620 

07062 

R 

540207 

R 

SAD 

VAL 




5621 

07063 

R 

607044 

R 

JMP 

XWRPART+2 




5 622 

07064 

R 

040207 

R 

DAC 

VAL 




562 3 

07065 

R 

627041 

R 

JMP* 

WRPART 




5624 





/SUBROUTINE TO 

PRINT STEPS 




5625 

07066 

R. 

000000 

A 

WRSTEP 0 




/* 1 2 JAH1 7* 

5626 

07067 

R 

104255 

R 

CALL 

DECQUT 



/* 1 2JAH1 7* 

5627 

07070 

R 

760040 

A 

LAW 

40 




5628 

07071 

R 

103174 

R 

CALL 

GUT 




5629 

0707? 

R 

200016 

A 

LAC 

R t 6 




5630 

07073 

R 

740030 

A 

I AC 





5631 

07074 

R 

040230 

R 

DAC 

POINT2 




5632 

07075 

R 

213732 

R 

LAC 

CXC01 

/* 1 2 J AH1 4* 

INIT 


5633 

07076 

R 

040231 

R 

DAC 

PLACE2 

/*12 JAH14* 

CHAR POS PTR 


5634 

07077 

R 

140227 

R 

DZM 

TEMP2 




5635 

0 7100 

R 

105014 

R 

CALL 

CHAR2 




5636 

07101 

R 

607104 

R 

JMP 

• + 3 




5637 

07102 

R 

103174 

R 

CALL 

OUT 




5638 

07103 

R 

607100 

R 

JMP 

• - 3 




5639 

07104 

R 

760000 

A 

LAW 

00 




5640 

07105 

R 

103174 

R 

CALL 

OUT 




5641 

07106 

R 

627066 

R 

JMP* 

WRSTEP 
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5642 





/SUBROUTINE TO 

SET UP 1-0 DEVI 

CES 


5643 

07107 

o s 

000Q00 

A 

SETIO 

0 



/*12JAH17* 

5644 






.OCT 



/* 1 2 JAH1 7 * 

5645 






.IFPNZ 

XVM 


/* 1 2 JAH1 5* 

5646 

07110 

R 

207107 

R 


LAC 

SETIO 

/SET UP LINK 

/*1 2JAH15* 

5647 

07111 

R 

741400 

A 


SZL 


/STATUS IN 

/*12JAH15* 

564R 

07112 

R 

253662 

R 


XQR 

(400000 

/BIT 0 OF 

/* 1 2 JAH1 5* 

5649 

07113 

R 

047107 

R 


DAC 

SETin 

/RETURN ADDR WORD 

/* 1 2 JAH1 5* 

5650 






• EM DC 


• 

/ * 1 2 JAH1 5* 

5651 

07114 

R 

220143 

R 


LAC* 

IVAR 

/IS %I NEG? 

/* 1 2 JAH1 5* 

5652 

07115 

R 

745100 

A 


SPA »CLL 


/IS %I NEG? 


5653 

07116 

R 

000005 

A 


ERR 5 


/YES, "MINUS" 


5654 

07117 

R 

653323 

A 


I D I V ? 

144 




07120 

R 

000144 

A 






5655 

07121 

R 

641002 

A 


LACQ 




5656 

07122 

R 

353773 

R 


TAD 

( -DEV-1 

/IS DEVICE NUMBER TOO LARGE? 

5657 

07123 

R 

744100 

A 


SMAICLL 




5658 

07124 

R 

000006 

A 


ERR6 


/YES, "MAXIM" 


5659 

07125 

R 

641002 

A 


LACQ 


/NO. 


5660 

07126 

R 

741200 

A 


SNA 


/%I = PRINCIPAL I/O DEVICE? 


5661 

071 27 

R 

200162 

R 


LAC 

PRNCDV 

/ YFS 


5662 

07130 

R 

040020 

A 


DAC 

R20 

/SETUP DEVICE NO. 


5663 

07131 

R 

313771 

R 


ADD 

(JMP OUTTAB-1 



566 4 

07132 

P 

040164 

R 


DAC 

OUTPUT 

/STORE "JMP OUTTAB+DEV" FOR 

OUTPUT. 

5665 

07133 

R 

313772 

R 


ADD 

(DEV 



5666 

07134 

R 

040163 

R 


DAC 

INPUT 

/STORE "JMP INTAB+DEV" FOR 

INPUT. 

5667 

07135 

R 

353774 

R 


TAD 

( - JMp- I NTAB 



5668 

07136 

R 

353775 

R 


TAD 

(WHOTAB+I 



5669 

07137 

R 

043174 

R 


DAC 

OUT 



5670 

07140 

R 

223174 

P 

XSETO 

LAC* 

OUT 

/GET OWNER FOR THIS DEVICE 


5671 

07141 

R 

540654 

R 


SAD 

PRTNMR 

/OURS? 


5672 

07142 

R 

607160 

R 


JMP 

XSET1 

/YES! ! I 


567 3 

07143 

R 

200020 

A 


LAC 

R20 



5674 

07144 

R 

540162 

R 


SAD 

PRrtCDV 

/PRINCIPAL DEVICE? 


5675 

07145 

R 

741000 

A 


SKP 


/ YES--TRY TO LOCK TO IT 


5676 

07146 

R 

000031 

A 


ERP31 


/NO-- " IOLOK" 


5677 

07147 

R 

741000 

A 


SKP 




5678 

07150 

R 

101533 

R 

XSET01 

JMS 

HANG 

/WAIT FOR PRINCIPAL DEVICE 


5679 

07153 

R 

705522 

A 


INTUFF 




5690 

0 7 1 5 2 

R 

223174 

R 


LAC* 

OUT 



5681 

07153 

R 

740200 

A 


SZA 


/DEVICE AVAILABLE? 


5682 

07154 

R 

607150 

R 


JMP 

XSETO 1 

/NO--WAIT 


568 3 

07155 

R 

200654 

R 


LAC 

PRTNMR 

/YES --TAKE IT 


5684 

0 715 6 

R 

063174 

R 


DAC* 

OUT 



5685 

07157 

R 

705521 

A 


INTON 




5696 

0 716 0 

R 

207107 

R 

XSET1 

LAC 

SETIO 



56«7 

07161 

R 

740010 

A 


RAL 


/RESTORE LINK AND 


5699 

0 716 2 

R 

627107 

o 


JMP* 

SETIO 

/RETURN. 
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1 0 0 

EVALUATOR 




5689 






.TITLE 

EVALUATOR 


5690 





/evaluator for 

NUMERIC AND STRING EXPRESSIONS 

5691 





/SET LINK ALLOTS NUMERIC OR STRING RESULT. 

5692 





/CLEAR 

LINK ALLOTS ONLY NUMERIC 

RESULT. 

569 3 





/ 




5694 

07163 

R 

000000 

A 

EVAL 

0 


/*12JAH17* 

5695 






. I FPNZ 

.-10000 

/♦12JAH17* 

5696 





***ERROR-SWAPPXNG IMAGE RETURN 

ADDRESSES MUST BE RELOCATED 

5697 





***BELQw 10000 

AS IN GLOBAL, GSYM, ETC. 

5698 






.END 



5699 






. ENDC 


/♦12JAH17* 

5700 






. I FPNZ 

fmoney 


5701 

07164 

R 

140211 

R 


DZM 

VALF 

/DON’T ALLOW F.P. ARGUMENTS 

5702 






.ENDC 



5 70 3 

07165 

R 

754400 

A 


SNL’CLL 

1 CL A 

/NUMERIC RESULT ONLY? 

5704 

07166 

R 

607174 

R 


JMP 

EVALO 

/YES 

5705 

07167 

P 

213730 

R 


LAC 

CXCIl 

/*12JAH14* IN I T 

5706 

07170 

R 

040221 

P 


DAC 

IPLACE 

/*12JAH14* CHAR PQS PTR 

5707 

07171 

R 

200133 

P 


LAC 

RUFF2 

/NO 

5708 

07172 

R 

040220 

R 


DAC 

IPOINT 

/SET UP BUFFER POINTER FOR STORING 

5709 








/POSSIBLE STRING 

5710 

07173 

R 

723030 

A 


AAC 

STRACC-1 


5711 

07174 

R 

040202 

R 

EVALD 

DAC 

TEMP /SET=0 

FOR NUN! ONLY J ELSE 8UFF2 + STRACC- 1 + 400000 

5712 

07175 

R 

140215 

R 


DZM 

SUM 


5713 

07176 

P 

751000 

A 

PLUS 

CL A 1 SKP 


/ 000000 FOR + 

5714 

07177 

R 

213663 

R 

MINUS 

LAC 

(200000 

/ 200000 FOR - 

5715 

07200 

R 

040242 

R 


DAC 

RKCHAR 

/SET "SIGN" BIT (1) FOR TERM EVALUATION 

57)6 

07201 

R 

777777 

A 


L AW 

-1 

• 

5717 

07202 

R 

040216 

R 


DAC 

TERM 

/-I INDICATES 1 DR / NOT ENCOUNTERED. 

5718 

07203 

S 

140207 

R 

SCAN 

DZM 

VAL 


5719 

07204 

R 

104660 

R 

SCANOO 

CALL 

□CHARI 

/*12JAH12* GET NEXT CHAR 

5720 

07205 

R 

553776 

R 


SAD 

(55 

/- 

572 1 

07206 

R 

607231 

R 


JMP 

UMINtJS 

/UNARY MINUS 

5722 

07207 

P 

553777 

R 


SAD 

(53 

/ + 

5723 

07210 

R 

607233 

R 


JMP 

□ PLUS 

/UNARY PLUS 

5724 

0721 1 

R 

103724 

R 

SC AN 1 

CALL 

SYNTAX 

/TEST CHAR TYPE. 

5725 

0721 2 

R 

607261 

R 


JMP 

LETTER 

/A 

5726 

0721 3 

R 

607306 

R 


JMP 

DIGIT 

/N 

5727 

07214 

R 

553753 

R 


SAD 

(50 

/( 

5728 

07215 

R 

607453 

R 


JMP 

SUREXP 

/SUBEXPRESSION 

5729 

07216 

R 

554000 

R 


SAD 

(44 

/$ 

5730 

07217 

R 

607236 

R 


JMP 

DOLLAR 

/FUNCTION OR SYST VARIABLE. 

5731 

07220 

R 

553752 

R 


SAD 

(45 

/% 

57 32 

07221 

R 

6^7260 

R 


JMP 

PERCENT 

/SYST VARIABLE. 

5733 

07222 

R 

553755 

R 


SAD 

(42 

/" 

57 34 

07223 

R 

607432 

R 


JMP 

STRO 

/TEXT LITERAL. 

57 35 

07224 

R 

554001 

R 


SAD 

(. 36 

/~ 

57 36 

07225 

R 

610065 

R 


JMP 

GGET 

/GLOBAL VARIABLE. 

5737 

07226 

R 

553742 

R 


SAD 

(56 

/. 

5738 

07227 

R 

607306 

R 


JMP 

DIGIT 


5739 

07230 

R 

000003 

A 


ERR3 


/"SYNTX” 

5740 





/ 
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5741 





/UNARY 

PLUS OR MINUS 


5742 





/ 




5743 

07231 

R 

777777 

A 

UMINUS 

LAW 

"1 


5744 

07232 

R 

040207 

R 


DAC 

VAL 


5745 

07233 

R 

140202 

R 

UPLUS 

DZM 

TEMP 


5746 

07234 

R 

104660 

R 


CALL 

□CHARI 

/GET NEXT CHAR. AND 

5747 

07235 

P 

607211 

R 


JMP 

SCAN 1 

/CONTINUE EVALUATION. 

57 48 





/DOLLAR 

SIGN. 

EITHER FUNCTION 

OR SYSTEM VARIABLE 

5749 





/ 




5750 

07236 

R 

1 04660 

R 

DOLLAR 

CALL 

□CHARI 

/GET NEXT CHAR. 

5751 

07237 

R 

103724 

R 


CALL 

SYNTAX 

/MUST 8E ALPHABETIC 

5752 

07240 

R 

607243 

R 


JMP 

. + 3 

/A 

5753 

07241 

R 

000003 

A 


ERR 3 


/"SYNTX" 

5754 

07242 

R 

000003 

A 


ERR 3 


/"SYNTX" 

5755 

07243 

R 

214002 

R 


LAC 

(1600 

/DOLLAR (TRANSFORMED) SHIFTED BY 5 LEFT 

5756 

07244 

R 

640002 

A 


OMQ 


/SYNTAX DOES LMQ 

5757 

07 245 

R 

040177 

R 


DAC 

SYM 


5 7 5 8 

07246 

R 

104660 

R 


CALL 

□CHARI 

/GET REMAINING CHARS IN $ N A M E , 

5759 

07247 

R 

040217 

R 


DAC 

ACTEMP 

/♦12JAH13* SAVE 2ND CHAR OF ECN NAME 

5760 

07250 

R 

741000 

A 


SKp 


/M2JAH13* (IN CASE $J) 

5761 

07251 

R 

1 04660 

R 


CALL 

□CHARI 

/ * 1 2 J A H 1 .3 * GET MORE CHARS IN FCN NAME 

5762 

07252 

R 

103724 

R 


CALL 

SYNTAX 

/CHECKING FOR ALPHA'S. 

576 3 

07253 

P 

607251 

R 


JMP 

.-2 

/A 

5764 

07254 

R 

000003 

A 


ERR 3 


/N- "SYMTX" 

5765 

07255 

R 

553753 

R 


SAD 

(50 

/PUNCT, IS IT ( 

5766 

07256 

R 

634075 

E 


JMP* 

FUMCT 

/YES, CONTINUE PROCESSING FUNCTION. 

5767 

07257 

R 

607272 

R 


JMP 

LETT2 

/NO, POSSIBLY SYSTEM VARIABLE. 

5 76 8 





/ 




5769 





/PERCENT, TRANSFORM TO CODE 35 


5770 





/ 




577 1 

07260 

R 

213751 

R 

PERCENT 

LAC 

(35 

/BRACKET 

5772 





/ 




577 3 





/alphabetic c 

HARACTERS 


5774 





/ 




5775 

07261 

R 

040177 

R 

LETTER 

DAC 

SYM 


5776 

07262 

R 

777775 

A 


LAW 

-3 


5777 

07263 

R 

040214 

R 

LETTO 

DAC 

M 

/*12JAH12* 

5778 

07264 

R 

104660 

R 

LETT3 

CALL 

□CHARI 

/*12JAH12* GET NEXT CHAR. 

5779 

07265 

R 

103724 

R 


CALL 

SYNTAX 

/TEST CHAR TYPE. 

5780 

07266 

R 

607274 

R 


JMP 

LETT! 

/A 

5781 

07267 

R 

000003 

A 


ERR 3 


/N- " SYNTX" 

5782 

07270 

R 

553753 

R 


SAD 

(50 

/PUNCT, IS IT ( 

5783 

07271 

R 

607467 

R 


JMP 

SUBSCR 

/YES, LOOK FOR SUBSCRIPT. 

5784 

07272 

R 

140200 

R 

L E T T 2 

DZM 

SCRIP 

/NO, SET FOR "NO SUBSCRIPT" AND 

5785 

07273 

R 

607322 

R 


JMP 

LOOKUP 

/GO SEARCH SYMBOL TABLE.. 

5786 





/ 




5787 





/PACK UP TO 3 

ALPHA'S (5-BIT)? 

IGNORE ALL ALPHA'S AFTER THIRD. 

5788 





/ 




5789 

07274 

R 

043724 

R 

LETT1 

DAC 

SYNTAX 


5790 

07275 

R 

777777 

A 


LAW 

-l 


5791 

07276 

R 

440214 

R 


ISZ 

M 

/ 3 CHARS YET? 

5792 

07277 

R 

745000 

A 


SKP1CLL 

/NO, CONTINUE 
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5793 

07300 

R 

607263 

R 

5794 

07301 

R 

200177 

R 

5795 

07 302 

R 

640705 

A 

5796 

07303 

R 

243724 

R 

5797 

07304 

R 

040177 

R 

5798 

5799 

07305 

R 

607264 

R 


J NIP 

LETTO 

/*12 JAH12* 

LAC 

SYM 


ALS 

5 


XOR 

SYNTAX 


DAC 

SYM 


JMP 

LETT3 

/*1 2 JAH12* 


.EJECT 
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5800 





/NQMERI 



5 801 





/ 



5802 

0 7 3 0 6 

R 

104103 

R 

DIGIT 

CALL 

DECIN 

5803 

07307 

R 

6C3724 

R 


JMP 

SYNTAX 

5804 

5805 

0 7 31 0 

R 

607332 

R 

/ 

JMP 

OP1 

5806 





/ 



5807 





/ 



5808 





/MULTIPLICATION 


5809 





/ 



5810 

0731 1 

R 

200242 

R 

STAR 

LAC 

6KCHAR 

581 1 

07312 

R 

740100 

A 


SMA 


581 2 

073 1 3 

R 

607203 

R 


JMP 

SCAN 

581 3 
5814 

0731 4 

R 

607317 

R 

/ 

JMP 

SLASH! 

5815 





/DIVISION 


5816 





/ 



5817 

07315 

R 

200242 

R 

SLASH 

LAC 

BKCHAR 

5818 

07 316 

R 

740100 

A 


SMA 


5819 

0731 7 

R 

253662 

R 

SLASH 1 

XOR 

(400000 

5820 

07320 

R 

040242 

R 


DAC 

BKCHAR 

5821 

5822 

07321 

R 

607203 

R 

/ 

JMP 

SCAN 

5823 





/SYMBOL 

IN THE 

TABLE? 

5824 





/ 



5825 

07322 

R 

754000 

A 

LOOKUP 

CLL1CLA 


5826 

07323 

R 

105434 

R 


CALL 

SYMBOL 

5827 

07324 

R 

641002 

A 


LACO 


5828 

07325 

R 

741200 

A 

LOKUP1 

SNA 


5829 

07326 

R 

000010 

A 


ERR 1 0 


5830 

07327 

R 

745400 

A 


SZLiCLL 


5831 

07330 

R 

607525 

R 


JMP 

STR1 

5832 

07331 

R 

220017 

A 


LAC* 

R 1 7 

5833 

07332 

R 

740200 

A 

OP1 

SZA 


58 34 

07333 

R 

240207 

R 


XOR 

VAL 

5835 

073 34 

R 

040207 

R 


DAC 

VAL 

5836 

07335 

R 

140202 

R 


DZM 

TEMP 

5837 

07336 

R 

777777 

A 


LAW 


5838 

07 3 17 

R 

540216 

R 


SAD 

TERM 

5839 

07340 

R 

607377 

R 


JMP 

OP 2 

5840 

07341 

R 

2O0242 

R 


LAC 

BKCHAR 

5841 

07342 

R 

705522 

A 


INTUFF 


5842 

07343 

R 

745100 

A 


SPAiCLL 


584 3 

07344 

R 

607354 

R 


JMP 

DIVO 

5844 

07345 

P 

200207 

R 

MULO 

LAC 

VAL 

5845 

07346 

R 

664000 

A 


GSM 


5846 

07347 

R 

047352 

R 


DAC 

MUL2 

5847 

07350 

R 

200216 

R 


LAC 

TERM 

5848 

07351 

R 

657122 

A 


MULS 


5849 

0 7 3 5 2 

R 

000000 

A 

MUL 2 

0 


5850 

07353 

R 

607366 

R 


JMP 

MUL 3 

5851 

07354 

R 

200207 

R 

DIVO 

LAC 

VAL 


/CONVERT TO NUMERIC 

/RETURN HERE IF ERROR ENCOUNTERED — SYNTAX SETUP FOR PROPER CAL 
/GO ON TO REST OF EVALUATION. 


/SKCHAR CO) IS MUL-D1V SW. 
/FORCE TO 0 FOR MUL • 

/GO GET NEXT TERM. 

/*! 2 JAH1 2* 


/FORCE TO 1 FOR DIV. 
/* 1 2 JAH1 2* 

/GO GET NEXT TERM. 


/CONDITION FOR SYMBOL "GET" 
/GET THE SYMBOL 
/(RETURNED IN MQ) 

/IS SYMBOL DEFINED? 

/NO, " UNDEF M 

/YES, IS IT STR OR NUM? 

/STR, GO PROCESS. 

/NUM, GET VALUE AND CONTINUE. 


/WAS A * OR / ENCOUNTERED AFTER LAST TERM? 
/NO. BYPASS MUL-DIV. 

/YES, CHECK MUL-DIV SWITCH (BIT 0) 


/DIVIDE. 

/MULTIPLY. 
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5852 

07355 

R 

664000 

A 


GSM 



5853 

07356 

R 

047364 

R 


DAC 

0IV2 


5854 

07357 

R 

200216 

R 


LAC 

TERM 


5855 

07360 

R 

657122 

A 


M U L S ? 

144 

/TERM * 100 / VAL 


07361 

R 

000144 

A 





5855 

07362 

R 

740000 

A 


NOP 



5857 

07363 

R 

644323 

A 


Dl VS 



5858 

07364 

R 

000000 

A 

Dl M2 

0 



5859 

07365 

R 

607370 

R 


JMP 

DIV3 


5860 

07366 

R 

644323 

A 

MUL3 

Dl VS; 

144 

/TERM * VAL / 100 


07367 

R 

000144 

A 





5861 

0 7 3 7 0 

R 

705521 

A 

DIV3 

IN TON 



5862 

07371 

R 

741410 

A 


SZLiRAL 


/RESULT TOO LARGE? 

5863 

07372 

R 

000006 

A 


ERR6 


/YES, "MAXIM" 

5864 

07373 

R 

641002 

A 


LACQ 


/NO. 

5865 

07374 

R 

553741 

R 


SAD 

(777777 

/-o? 

5 8 66 

07375 

R 

750000 

A 


CLA 


/YES, CHANGE TO +0 

5867 

07376 

R 

741000 

A 


SKP 



5868 

07377 

R 

200207 

R 

QP2 

LAC 

VAL 


5869 

07400 

R 

040216 

R 


DAC 

TERM 

/SAVE TERM AND 

5870 

07401 

P 

104645 

R 


CALL 

□CHAR 

/GET A CHAR. 

5871 

07402 

R 

554003 

R 


SAD 

(52 

/* 

5972 

07403 

R 

607311 

R 


JMP 

STAR 

/SETUP FOR MULTIPLICATION, 

5873 

07404 

R 

554004 

R 


SAD 

(57 

// 

5874 

07405 

R 

607315 

R 


JMP 

SLASH 

/SETUP FOR DIVISION. 

5875 

0 7 4 0 6 

R 

044645 

R 


DAC 

□ CHAR 


5876 

07407 

R 

200242 

R 


LAC 

skchar 


5877 

07410 

R 

742010 

A 


RTL 


/"SIGN" BIT FUR THIS TERM INTO LINK 

5878 

0741 1 

R 

200216 

R 


LAC 

TERM 


5879 

07412 

R 

745400 

A 


SZLiCLL 


/COMPLEMENT IF TERM NEG. 

5880 

0741 3 

R 

740001 

A 


CM A 



5881 

0741 4 

R 

300215 

R 


ADD 

SUM 

/ACCUMULATE SUM. 

5882 

07415 

R 

553741 

R 


SAD 

(777777 

/IF "0, CHANGE TO +0 

5883 

07416 

P 

740001 

A 


CM A 



5984 

07417 

R 

040215 

R 


DAC 

SUM 


5885 

07420 

R 

745400 

A 


SZLiCLL 


/NUMBER TOO LARGE? 

5886 

07421 

R 

000006 

A 


ERR6 


/YES, "MAXIM" 

5897 

07422 

R 

204645 

R 


LAC 

OCHAR 

/NO. IF LAST CHAR + OR RECYCLE. 

5888 

07423 

R 

553777 

R 


SAD 

(53 

/ + 

5889 

07424 

R 

607176 

P 


JMP 

PLUS 


5890 

07425 

R 

553776 

R 


SAD 

(55 

/- 

5891 

07426 

R 

607177 

R 


JMP 

MINUS 


5892 

07427 

R 

200215 

R 


LAC 

SUM 

/HOLD RESULT OF EVALUATION 

589 3 

07430 

R 

040207 

R 


DAC 

VAL 

/IN "VAL" AND IN AC FOR 

5894 

07431 

R 

627163 

R 


JMP* 

EVAL 

/RETURN. 

5895 





/ 




5896 





/QUOTES 




5897 





/ 




5898 

07432 

R 

200202 

R 

STRO 

LAC 

TEMP 


5899 

07433 

R 

741200 

A 


SNA 


/ " W U M RES ONLY" ALLOWED? 

5900 

07434 

R 

000011 

A 


ERR11 


/YES, "MIXED" 

5901 

07435 

R 

104660 

R 

STRO. 1 

CALL 

OCHARI 

/*12JAH12* NO, GET NEXT CHAR 
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1 00 
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5902 

07436 

R 

741200 

A 


SNA 



5903 

07437 

R 

000003 

A 


ERR 3 



5904 

0 7 4 4 0 

R 

553755 

R 


SAD 


(42 

5905 

07441 

R 

607627 

R 


JMP 


STR3.1 

5906 

0 7 4 42 

R 

104725 

R 


CALL 


ICHARI 

5907 

07443 

R 

200220 

ft 


LAC 


IPOIMT 

5909 

0 7 4 4 4 

R 

540202 

R 


SAD 


TEMP 

5909 

07445 

R 

741000 

A 


SKP 



5910 

07446 

R 

607435 

R 


JMP 


STRO.l 

5911 

07447 

R 

200221 

R 


LAC 


I PLACE 

5912 

07450 

R 

553727 

R 


SAD 


CXCI3 

5913 

07451 

R 

000006 

A 


ERRS 



5914 

07452 

R 

607435 

ft 


JMP 


STRO.l 

5915 





/ 




5916 





/parenthetical 

EXPRESSION 

5917 





/ 




5918 





/##### 

SAVE 

ON 

STACK ##### 

5919 

07453 

R 

777773 

A 

SUBEXP 

LAW 


-5 

5920 

07454 

R 

105040 

R 


CALL 


SAVE 

5921 

07455 

ft 

207163 

ft 


LAC 


EVAL 

5922 

07456 

R 

200242 

R. 


LAC 


bkchar 

5923 

07457 

R 

200216 

R 


LAC 


TERM 

5924 

07460 

R 

200215 

R 


LAC 


SUM 

5925 

07461 

R 

200207 

R 


LAC 


VAL 

592b 

07462 

R 

200202 

R 


LAC 


TEMP 

5927 

07463 

R 

744200 

A 


SZAi 

CLL 


5928 

07464 

R 

744002 

A 


STL 



5929 

0 7 4 6 5 

R 

107163 

R 


CALL 


EVAL 

593 0 









5931 

07466 

R 

634076 

E 


JMP* 


FUNOLJT 

5932 





/ 




5933 





/CALCULATE VALUE OF SUBSCRIPT 

5934 





/ 




5935 





/##### 

SAVE 

ON 

STACK ##### 

5936 

07467 

R 

777771 

A 

SUBSCR 

LAW 


-7 

5937 

07470 

R 

105040 

R 


CALL 


SAVE 

5938 

07471 

R 

207163 

R 


LAC 


EVAL 

5939 

07472 

R 

200242 

R 


LAC 


BKCHAR 

5940 

07473 

R 

200216 

R 


LAC 


TERM 

5941 

07474 

R 

200215 

R 


LAC 


SUM 

5942 

07475 

R 

200207 

R 


LAC 


VAL 

5943 

07476 

R 

200202 

R 


LAC 


TEMP 

5944 

07477 

R 

200177 

R 


LAC 


SYM 

5945 





/##### 



*#### 

5946 

07500 

R 

744000 

A 


CLL 



5947 

07501 

R 

107163 

R 


CALL 


EVAL 

5948 

07502 

R 

040200 

R 


DAC J 

SCRIP 

5949 

07503 

R 

513661 

R 


AND 


(700000 

5950 

07504 

R 

740200 

A 


SZA 



5951 

07505 

R 

000005 

A 


ERRS 



5952 

0 7 50 6 

R 

104645 

R 


CALL 


□CHAR 

5953 

07507 

R 

553754 

R 


SAD 


(51 


/IS IT EQM? 

/YES , " S YNTX " 

/no, is it " 

/*12JAH12* YES 
/MO, STORE CHAR. 

/BUFFER FILLED? 

/♦12JAH14* LAST WORD OF SUFFER 
/*12JAH14* MQT LAST WORD 
/♦12JAH14* CHAR POS 
/* 1 2 JAH1 4* LAST? 

/YES, "MAXIM" 

/*12JAH12* MO, CONTINUE. 


/IS STRING LEVAL PARI OF EXP? 
/YES 

/MUSI' CALL EVAL RECURSIVELY FOR 

/SUB-EXPRESSIOMS 

/*12JAH12* FINISH UP 


/CLEAR L FOR "MUM RES ONLY" BEFORE EVAL 
/MUST CALL EVAL RECURSIVELY FOR SUBSCRIPT 
/SAVE SUBSCRIPT 

/IS SUBSCRIPT MEG? 

/YES, "MINUS" 

/NO, GET A CHAR 
/IS IT S ) 
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5954 

07510 

R 

741000 

A 


SKP 


5955 

0751 1 

R 

000003 

A 


ERR 3 


5956 





/####* 

PGPSTACK 

5957 

07 512 

R 

777771 

A 


L A w 

-7 

5958 

0751 3 

R 

105103 

P 


CALL 

UNSAVE 

5959 

07514 

R 

0401 77 

R 


0 AC 

SYM 

5960 

0751 5 

R 

040202 

R 


DAC 

TEMP 

5961 

0751 6 

R 

040207 

R 


0 AC 

VAL 

5962 

07517 

R 

040215 

R 


DAC 

SUM 

5963 

07520 

p 

040216 

R 


DAC 

TERM 

596 4 

07521 

R 

040242 

P 


DAC 

bkchar 

5965 

07522 

R 

047163 

R 


DAC 

EVAL 

5966 





/###** 



5967 

07523 

R 

104660 

B 


CALL 

OCHARI 

5968 

07524 

R 

607322 

R 


JMP 

LOOKUP 

5969 





/STRING 

VARIABLE 

5970 





/ 



5971 

07525 

R 

200202 

R 

ST'Ri 

LAC 

TEMP 

5972 

07526 

R 

741200 

A 


SNA 


5973 

07527 

R 

000011 

A 


ERR 1 1 


5974 

07530 

R 

200017 

A 


LAC 

R 1 7 

5975 

07531 

R 

740030 

A 


I AC 


5976 

07532 

R 

040230 

R 


DAC 

PQINT2 

5977 

07533 

P 

213732 

R 


LAC 

(XC01 

5978 

07534 

R 

040231 

R 


DAC 

PLACE2 

5979 

07535 

R 

140227 

R 


DZM 

TEMP 2 

5980 

07536 

R 

200133 

R 


LAC 

RUFF2 

5981 

07537 

R 

721000 

A 


PAX 


5982 

07540 

R 

540220 

R 


SAD 

I POINT 

5983 

07541 

R 

741000 

A 


SKP 


5984 

07542 

R 

607612 

R 


JMP 

STRl.t 

5985 

0 7543 

R 

200221 

R 


LAC 

IPLACE 

5986 

07544 

R 

553730 

R 


SAD 

CXCI1 

5987 

07545 

R 

741000 

A 


SKP 


5988 

07546 

R 

607612 

R 


JMP 

STR1.1 

5989 

07547 

R 

220230 

R 


LAC* 

P0INT2 

5990 

07550 

R 

653606 

A 


CLAC ! LMO i LLS+6 

5991 

07551 

R 

723747 

A 


AAC 

-STRAC 

5992 

07552 

R 

740100 

A 


SMA 


599 3 

0 7 55 3 

R 

000006 

A 


ERR6 


5994 

07554 

R 

723031 

A 


AAC 

STRACC 

5995 

07555 

R 

340133 

R 


TAD 

BUFF? 

5996 

07556 

R 

740030 

A 


I AC 


5997 

07557 

R 

722000 

A 


PAL 


5998 

07560 

F 

220017 

A 


LAC* 

R 1 7 

5999 

07561 

R 

741200 

A 


SNA 


6000 

07562 

R 

607625 

R 


JMP 

S T R 3 

6001 






. DBREL ? 

DBA 


07563 

R 

707762 

A 




600? 

07564 

R 

741000 

A 


SKP 


600 3 

07565 

R 

220017 

A 


LAC* 

R 1 7 

6004 

07566 

R 

050000 

A 


DAC 

0,X 


/NO, "SYNTAX" 
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6005 

07567 

R 

725001 

A 


AXS 

1 

6006 

07570 

R 

607565 

R 


JMP 

.-3 

6007 

07571 

P 

707764 

A 


.EBREL 

; EBA 

6008 

07572 

R 

740200 

A 


SZA 


6009 

07573 

R 

607601 

R 


JMP 

STR1.2 

6010 

07574 

R 

213727 

R 


LAC 

( XC I 3 

601.1 

07575 

R 

040221 

R 


DAC 

IPLACE 

6012 

07576 

R 

724000 

A 


PX A 


6013 

0 7 5 7 7 

R 

723776 

A 


AAC 

*2 

6014 

07600 

R 

607610 

R 


JMP 

STR 1 ,4 

6 015 

07601 

R 

513645 

R 

STR 1 * 2 

AND 

(007777 

6016 

07602 

R 

740200 

A 


SZA 


6017 

07603 

R 

213667 

R 


LAC 

(XCI2-XCI1 

6018 

07604 

R 

353730 

R 


TAD 

(XCI1 

6019 

07605 

R 

040221 

R 


DAC 

IPLACE 

6020 

07606 

R 

724000 

A 


PX A 


6021 

07607 

R 

723777 

A 


AAC 

-1 

6022 

07610 

R 

040220 

R 

STR 1 • 4 

DAC 

I POINT 

6023 

0761 1 

P 

607625 

R 


JMP 

5 IR3 

6024 



007612 

R 

STR 1 . 1 = 

* 


6025 

07612 

R 

105014 

R 

STR2 

CALL 

CHAR2 

6026 

0761 3 

R 

607625 

P 


JMP 

STR 3 

6027 

0761 4 

R 

104725 

o 


CALL 

ICHARI 

6028 

07615 

R 

200220 

R 


LAC 

IPO! NT 

6029 

07616 

R 

540202 

R 


SAD 

TEMP 

6030 

07617 

R 

741000 

A 


SKP 


6031 

07620 

R 

607612 

R 


JMP 

STR2 

6032 

07621 

R 

200221 

R 


LAC 

IPLACE 

60 3 3 

07622 

P 

553727 

R 


SAD 

( XC I 3 

60 34 

07623 

R 

000006 

A 


ERR6 


6035 

6036 

0 7 6 2 4 

R 

607612 

R 

/ 

JMP 

STR2 

6037 





/STRING 

OPERATORS? 

6038 





/ 



6039 

07625 

R 

104645 

R 

STR 3 

CALL 

OCHAR 

6040 

07626 

R 

741000 

A 


SKP 


6041 

07627 

R 

104660 

R 

STR3 • 1 

CALL 

OCHARI 

6042 

07630 

R 

553742 

R 


SAD 

(56 

6043 

07631 

R 

607204 

R 


JMP 

SCANOO 

6044 

07632 

R 

750000 

A 


CLA 


6045 

07633 

R 

104725 

R 


CALL 

ICHARI 

6046 

07634 

R 

200221 

R 


LAC 

IPLACE 

6047 

07635 

R 

553730 

R 


SAD 

(XCI1 

6048 

07636 

R 

607645 

R 


JMP 

STR3.2 

6049 

07637 

R 

553727 

R 


SAD 

( XC I 3 

6050 

07640 

R 

607646 

R 


JMP 

STR 3. 3 

6051 

07641 

p 

220220 

P 


L&C* 

I POT NT 

6052 

07642 

R 

514005 

R 


AND 

(770000 

605 3 

0 7 6 4 3 

R 

060220 

R 


DAC* 

IPO I NT 

6054 

07644 

R 

741000 

A 


SKP 


6055 

07645 

R 

160220 

R 

STR3.2 

DZM* 

IPOIMT 


/DOME? 

/no 

/YES, RESTORE TO BANK MODE 


/*12JAH17* 
/* 1 2 JAHI1 7* 
/* 1 2 JAH1 7* 


/LAST WORD ZERO? 

/NO 

/YES, SET 

/CHAR POSITION 

/FETCH. END OF STR IN ACC 

/ADJUST 

/FINISH UP 

/LOOK AT 1ST CHAR ONLY 
/ONLY 1 CHAR? 

/NO 

/YES 

/SAVE CHAR POS 

/FETCH END OF STR IN ACC 

/ADJUST 

/SAVE WORD POS 


/GET A CHAR. 

/EON RETURN FROM CHAR2 
/STORE CHAR. 

/BUFFER FILLED? 

/*12JAH14* LAST WORD OF 8UFFER 
/* 1 2 JAM I 4* NOT LAST WORD 
/*J2JAH14* CHAR POS 
/* l 2 JAH1 4* LAST ONE? 

/*12JAHI4* YES, "MAXIM" 

/NO, CONTINUE, 


/GET A CHAR. 

/OR 

/INDEX AND GET A CHAR. 

/. (CONCATENATION OPERATOR)? 
/♦12JAH12* YES, GO GST NEXT STRING 
/NO. 

/*12JAH14* CHAR POS PTR 
/*12JAH14* FIN 1 CHAR? 

/♦12JAH14* YES 

/* 1 2 JAH1 4* FIN 3 CHARS? 

/ * 1 2 J AH 1 4* YES 
/* 1 2 J AH1 4* NO 

/*12JAH14* TRIM OFF LAST SIX BITS 
/M2JAH14* FROM LAST WORD OF STRING 
/*12 JAH14* 

/* 1 2 JAH 1 4* CLEAR FINAL WORD 


/*12JAH17* 
/* 1 2 JAH1 7* 
/* 1 2 JAH1 7* 
/*12JAH17* 
/*i2JAH17* 
/* 1 2 JAH1 7* 
/*12JAH17* 
/M2JAH17* 
/*12JAH17* 
/* 1 2 JAH1 7* 
/* 1 2 JAH1 7* 
/*12JAH17* 
/* 1 2 JAH1 7* 
/*1 2JAH1 7* 
/*12JAH17* 
/* 1 2 J AH1 7* 
/*12JAH17* 
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6055 

07646 

R 

200133 

R 

STR3.3 

LAC 

BUFF2 

6057 

07647 

p 

740031 

A 


CM A i I AC 


6059 

07650 

R 

340220 

R 


TAD 

I p 0 1 N T 

6050 

0 7 6 51 

R 

513702 

R 


AND 

(77 

6060 

0 76 5 2 

R 

650506 

A 


CLQ« LRS 

6 

6061 

07653 

R 

220133 

R 


LAC* 

BUFF2 

6062 

07654 

R 

513645 

R 


AND 

( 7777 

606 3 

07655 

R 

640002 

A 


OMQ 


6064 

07656 

R 

060133 

R 


D AC * 

9UFF2 

6065 

07657 

R 

754001 

A 

MSTR 

CLAiCMA! 

CLL 

6066 

07660 

R 

040207 

R 


DAC 

VAL 

6067 

07661 

P. 

627163 

R 


JMP* 

EVAL 

6068 





/ 



6069 





/RETURN 

HERE FROM STR 

6070 





/ 



6071 



007662 

R 

STR 4= - 



6072 






. I FPNZ 

MONEY 

6073 

07662 

R 

213674 

R 


LAC 

(SKP 

6074 

07663 

R 

040210 

P 


DAC 

MONYSW 

6075 






.ENDC 


6076 

07664 

R 

1 04645 

R 


CALL 

QCHAR 

6077 

07665 

R 

553754 

R 


SAD 

(51 

6078 

07666 

R 

751001 

A 


SKP'CLA! 

CM A 

6079 





/##### 

POPSTACK 

6080 

07667 

R 

000003 

A 


ERR 3 


6091 

07670 

R 

105103 

R 


CALL 

IJNSAVE 

6082 

07671 

R 

047163 

R 


DAC 

EVAL 

6083 





/##### 



6084 






. I FPNZ 

FMONEY 

6085 

07672 

R 

200211 

R 


LAC 

VALF 

6086 

07673 

R 

741200 

A 


SNA 


6087 






.ENDC 


6088 

07674 

R 

607627 

R 


JMP 

STR3.1 

6089 






• I FPNZ 

FMONEY 

6090 

07675 

R 

104660 

R 


CALL 

OCHARI 

6091 

07676 

R 

607657 

R 


JMP 

MSTR 

6092 






.ENDC 



/* 1 2 JAH1 4* 

/* 1 2 JAH1 4* 

/* 1 2 JAril 4* NO OF LOSS' USED IN BUFF 2 . 


/OFFSET INTO HI 6 BITS. 

/HOLD 777777 (STR IND) 
/IN M VAL" AND IN AC FOR 
/RETURN. 

NCT PROCESSING. 


/RESTORE SWITCH TO N3N-SM MODE 

/GET A CHAR 
/MUST BE A ) 

/-I FOR POPPING STACK. 

Jf #### 

/ M SYNTX" 


/FLOATING POINT VALUE RETURNED? 

/NO, CONTINUE STRING PROCESSING 

/YES, ADVANCE 
/EXIT FROM EVAL 
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GLOBAL VARIABLE ROUTINES 


.TITLE GLOBAL .VARIABLE ROUTINES 

/ 

/STRUCTURE OF CORE DIRECTORY FOR GL06ALS 
/ 


/WORD 0 
/WORD 1 
/WORD 2 
/WORD 3 X (17 
/WORD 4 Y (17 


000 (15 BIT GLOBAL NAME IN 5 BIT R.A.) 

(18 BIT BLOCK POINTER TO FIRST BLOCK OF LEVEL 0) 
f.nJU (15 BIT OPENED PARTITION NUMBER ) UUU=UNIT 
BIT READ KEY) X=1 , TRAP ON KEY VIOLATION 
BIT OPEN KEY) Y=1 . TRAP ON KEY VIOLATION 


/ 

/GLOBAL OPEN and CLOSE 
/ 


07677 

R 

744400 

A 

OPEN 

SMLICLL 



07700 

R 

000004 

A 


ERR4 


/ " C M M N D M 

07701 

R 

104660 

R 


CALL 

□CHARI 


07702 

R 

554001 

R 


SAD 

( 36 

r 

07703 

R 

607707 

R 


JMP 

OPENO 


07704 

R 

104710 

R 

overlay 

CALL 

SUBOPT 


07705 

R 

754000 

A 


CLA1CLL 



07706 

R 

634141 

E 

/ 

OPENO 

JMP* 

OLAY 

/*12JAH12* 

07707 

R 

200222 

R 

LAC 

□POINT 

/OPEN 

0771 0 

R 

040016 

A 


DAC 

R16 


0771 1 

R 

200223 

R 


LAC 

□PLACE 

/* 1 2 JAH1 4* SAVE POS 

077 1 2 

R 

040015 

A 


DAC 

R 1 5 

/* 1 2 JAH1 4* PTR 

0771 3 

R 

140254 

R 


DZM 

□SYMBOL 

/NO NAKEDS AFTER OPEN 

07714 

R 

103641 

R 

OPEN 1 

CALL 

PRODA 

/GET DISK 

0 77 15 

R 

100266 

R 

OPEN 5 

CALL 

GASS 

/ASSEMBLE GLOBAL NAME 

0771 6 

R 

000003 

A 


ERR 3 


/ M S Y N T X ” - NAKED NOT ALLOWED 

0771 7 

R 

440177 

R 


ISZ 

SYM 


07720 

R 

440177 

R 


ISZ 

SYM 


07721 

R 

220177 

R 


LAC* 

SYM 


07722 

R 

513702 

R 


AND 

(77 

/GET OWNER 

0772 3 

R 

745200 

A 


SNAiCLL 



07724 

R 

607747 

R 


JMP 

0PEN2 

/NOBODY OWNS IT 

07725 

R 

540655 

R 


SAD 

RIJNNMR 


07726 

R 

607742 

R 


JMP 

QPEN4 

/THIS USER OWNS IT, BUT TEST KEY 

07727 

R 

110005 

R 


CALL 

REMOVE 

/SOMEONE ELSE OWNS IT - CLOSE... 

07730 

R 

200172 

R 


LAC 

WRTSW 

/WRITE OUT PARTITION BUFFER 

077 3 1 

R 

740200 

A 


SZA 



07732 

R 

134057 

E 


J MS* 

OMPOLD 

/* 1 2 JAH1 2* 

07733 

R 

140577 

R 


DZM 

DSKACT 

/FREE DISK 

07734 

R 

101533 

R 


JMS 

HANG 


07735 

R. 

200016 

A 


LAC 

R 1 6 


07736 

R 

040222 

R 


DAC 

□POINT 

/RESTORE POINTER... 

0 7 7 3 7 

R 

200015 

A 


LAC 

Rl 5 

/*12JAH14* RESTORE 

07740 

R 

040223 

R 


DAC 

□PLACE 

/*12JAH14* CHAR POS PTR 

07741 

P 

607714 

R 

/ 

0PEN4 

JMP 

OPEN 1 

/...AND TRY AGAIN 

07742 

R 

260177 

R 

XOR* 

SYM 

/CLOSE UNTIL HE PROVIDES CORRECT 

07743 

R 

060177 

R 


DAC* 

SYM 


07744 

R 

777777 

A 


LAW 

-1 



ANYWAY 


KEY 
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6145 

07 745 

R 

340670 

R 


TAD 

OPNCMT 


6146 

07746 

R 

040670 

R 


DAC 

OPNCMT 

/DECREMENT OPEN COUNTER 

6147 

07747 

R 

440177 

R 

OP EM 2 

ISZ 

S*M 


6148 

0 7 7 50 

R 

440177 

R 


ISZ 

SYM 

/POINTER TO OPEN KEY 

6149 

07751 

R 

220137 

R 


LAC* 

KVAR 


6150 

07752 

R 

040207 

R 


DAC 

VAL 


6151 

07753 

R 

104645 

R 


CALL 

OCHAR 


615 2 

07754 

R 

553724 

R 


SAD 

(33 

/LEFT BRACKET 

6153 

07755 

R 

741000 

A 


SKP 



6154 

07756 

R 

607761 

R 


JMP 

.+3 


6155 

07757 

R 

105242 

R 


CALL 

GETKEY 


6156 

07760 

R 

000003 

A 


ERR 3 


/"SYNTX” 

6157 

07761 

R 

105272 

R 


CALL 

KEYCHK 


6158 

07762 

R 

220177 

R 


LAC* 

SYM 


6159 

07763 

R 

540207 

R 


SAD 

VAL 


6160 

07764 

R 

740200 

A 


SZA 



6161 

07765 

R 

000032 

A 


ERR32 


/KEY DOES NOT MATCH 

6162 

07766 

R 

200177 

R 


LAC 

SYM 


6163 

07767 

R 

723776 

A 


AAC 

-2 


6164 

07770 

R 

040177 

R 


DAC 

SYM 

/POINTER TO WORD 2 (OPEN OWNER) 

6165 

07771 

P 

220177 

R 


LAC* 

S¥M 


6166 

07772 

R 

240655 

R 


XGR 

RUlsiNMB 


6167 

07773 

R 

060177 

R 


DAC* 

SYM 

/OPENED TO THIS PARTITION 

6168 

07774 

R 

440670 

R 


ISZ 

OPMCMT 


6169 

07775 

R 

104645 

R 

OPEN 3 

CALL 

OCHAR 


6170 

07776 

R 

553767 

R 


SAD 

(54 

/, COMMA MEANS MORE TO OPEN 

6171 

07777 

R 

741000 

A 


SKP 



6172 

10000 

R 

610040 

R 


JMP 

CLOSED 

/DONE 

6173 

1 0001 

R 

104660 

R 


CALL 

OCHAR I 


6174 

10002 

R 

554001 

R 


SAD 

(36 

/r 

6175 

10003 

R 

607715 

R 


JMP 

OPENS 


6176 

1 0004 

R 

000013 

A 


ERR13 


/NOT UP ARROW, M GLOBE" ERROR 

6177 
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6178 





/REMOVE 

CLOSES 

ALL GLOBALS 

6179 





/ 



6180 

1 0005 

R 

000000 

A 



6181 

1 0006 

p 

214104 

E 

X&iWVO I w 

LAC 

GTA3LE 

6182 

1 0007 

R 

040177 

R 


DAC 

SYM 

618 8 

10010 

R 

220177 

R 

REMO V 1 

LAC* 

SYM 

6184 

10 011 

R 

553741 

p 


SAD 

(777777 

6185 

10 012 

R 

630005 

R 


JMP* 

REMOVE 

6186 

10013 

R 

440177 

R 

RHO V 

ISZ 

SYM 

6187 

10014 

R 

440177 

R 


ISZ 

SYM 

6188 

10015 

R 

220177 

R 


LAC* 

SYM 

6189 

10016 

R 

513702 

R 


AND 

(77 

6190 

10017 

R 

540655 

R 


SAD 

RUNNMB 

6191 

10020 

P 

610027 

R 


JMP 

RE MOV 3 

6192 

10021 

R 

440177 

R 

REMOV2 

ISZ 

SYM 

6193 

1 0022 

R 

440177 

R 


ISZ 

SYM 

6194 

10 0 2 3 

R 

440177 

R 


ISZ 

SYM 

6195 

1 0024 

R 

741400 

A 


SZL 


6196 

1 0025 

R 

610055 

R 


JMP 

CLOSE3 

6197 

1 0026 

R 

610010 

R 


JMP 

REMOV 1 

6198 

1 0027 

R 

220177 

R 

RFMOV 3 

LAC* 

SYM 

6199 

1 0 0 30 

R 

514006 

R 


AND 

(377700 

6 20 0 

1 0031 

R 

060177 

R 


DAC* 

SYM 

6201 

1 0032 

R 

200670 

R 


LAC 

□PNC NT 

6202 

1 0 0 3 3 

R 

723777 

A 


AAC 

-1 

6203 

1 0034 

R 

040670 

R 


DAC 

□PNC NT 

6204 

1 0035 

R 

610021 

R 


JMP 

REMOV2 

6205 





/ 



6206 

10036 

R 

103641 

R 

CLOSE 

CALL 

PRODA 

6207 

1 0037 

R 

110005 

R 


CALL 

REMOVE 

6208 

1 0040 

R 

200172 

R 

CLOSED 

LAC 

WRTSW 

6209 

10041 

R 

744200 

A 


SZA1CLL 


6210 

1 0042 

R 

1 34057 

E 


JMS* 

QMPOLD 

6211 

10043 

R 

140577 

R 


DZM 

DSKACT 

6212 

10044 

R. 

440652 

P 


ISZ 

SWAPSW 

6213 

1 0045 

R 

603573 

R 


JMP 

DTABLE 

6214 

1 00 46 

R 

101533 

R 


JMS 

HANG 

6215 

10047 

R 

603573 

P 


JMP 

DTABLE 

6216 

10050 

R 

103641 

R 

CLOSE! 

CALL 

PRODA 

6217 

1 OQ51 

R 

100266 

R 

CLOSE2 

CALL 

GASS 

6218 

10052 

R 

000003 

A 


ERR3 


6219 

10053 

P 

744002 

A 


STL 


6220 

10054 

R 

610013 

R 


JMP 

RMQV 

6221 

10 0 55 

R 

104645 

R 

CL0SE3 

CALL 

OCHAR 

6222 

10056 

R 

553767 

R 


SAD 

(54 

6223 

10057 

R 

741000 

A 


SKP 


6224 

1 0060 

R 

610040 

R 


JMP 

CLOSED 

6225 

1 0061 

R 

104660 

P 


CALL 

□CHARI 

6226 

10062 

R 

554001 

R 


SAD 

(36 

6227 

1 0063 

R 

610051 

R 


JMP 

CLOSE2 

6228 

1 0064 

R 

00001 3 

A 


ERR 1 3 


6229 






.EJECT 



OWNED 9Y PRESENT USER 


/*12JAH17* 

/*12JAH17* 


/END OF TABLE MARKER 
/DONE 

/POINTER TO WORD 2 COPS.N OWNER) 


/RUNNMB MATCHES - THIS GUY OWNS IT 


/GO TO NEXT ENTRY 
/SINGLE GLOBAL CLOSE? 
/YES - LEAVE 


/MASK OFF ID# 

/DECREMENT OPEN COUNTER 


/GET DISK, CLOSE USER'S GLOBALS 


/*12JAB12* WRITE OUT GLOBAL BUFF IF NECC 
/FREE DISK 
/TIME SLICE UP? 

/NO 

/YES, LET OTHERS RUN 

/GET DISK 

/FIND GLOBAL 

/NAKED OP NOT THERE 

/FLAG SINGLE GLOBAL CLOSE 

/GO TAKE IT AWAY 

/WHAT'S NEXT 

/COMMA? 

/MORE TO COME 
/NO - DONE 
/GET NEXT CHAR. 

/*.? 

/CONTINUE 

/NOT % "GLOBE" ERROR 
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6230 





/definitions 



6231 





/ 




623? 





/ 




6233 





/ 




6234 





/global 

GET. COMES HERE 

FROM 

EVAL 

6235 





/ 




6236 

1 0065 

R 

100270 

R 

GGET 

CALL GSYM 



6237 

1 0 0 6 6 

R 

754000 

A 


CLLiCLA 



6238 

10 06 7 

R 

100272 

R 


CALL GLOBAL 



6239 

10070 

R 

641002 

A 


LACQ 



6240 

1 0071 

R 

644000 

A 


ABS 



6241 

1 00 7 2 

R 

607325 

R 


JMP LOKUP1 


/RETURN TO EVAL 

6242 





/ 




6243 





/ 




6244 





/global 

PUT. COMES HERE 

FROM 

SET 

6245 





/ 




6246 

1 0 07 3 

R 

100270 

P 

GPUT 

CALL GSYM 



6247 

1 0074 

R. 

553762 

R 


SAD (75 


/ = 

62 4 8 

1 0075 

R 

755002 

A 


SKPICLAISTL 



6249 

10076 

R 

000003 

A 


ERR 3 


/"SYNTX" - NUMERIC CHARACTER 

6250 

10077 

R 

107163 

R 


CALL EVAL 


/PUNCTUATION CHAR 

6251 

1010 0 

R 

754002 

A 


STL ! C LA 



6252 

10101 

R 

740010 

A 


RAL 



6253 

10102 

R 

100272 

R 


CALL GLOBAL 


/PUT 

6254 

1010 3 

R 

613244 

R 


JMP SET2 


/JUMP BACK TO SET 

6255 





/ 




6256 





/ 




6257 





/global 

KILL. COMES HERE PRl 

JM KILL. 

6258 





/ 




6259 

1 0104 

R 

100270 

R 

GKTLL 

CALL GSYM 



6260 



010105 

R 

GKILL2= 

• 



6261 

1 0105 

R 

750001 

A 


CLC 



6262 

10106 

R 

100272 

K 


CALL GLOBA!; 



6263 

1 010 7 

R 

612527 

R 


JMP KILL15 


/*12JAH12* 

6264 

1 0 It 0 

R 

750001 

A 

GKILL3 

CLC 



6265 

10111 

R 

100272 

R 


CALL GLOBAL 


/UNSUBSCRIPTED KILL 

6266 



010112 

R 

G K I L L 4 = 

• 


/INDICATOR TO XGLOBAL OF COMP. KILL 

6267 

10112 

P 

612527 

R 


JMP KILL15 


/* 1 2 JAH1 2* 

6268 






.EJECT 
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6269 





/XG ASS 

- ASSEMBLE A GLOBAL NAME 

, FIND IT 

6270 





/ 





6271 





/CALL1 r 

^G SEQUENCE; 



6272 





/ 

CALL 

GASS 



6273 





/ 

RETURNS 

HERE IE 

POSSIBLE NAKED 

6274 





/ 

RETURNS 

HERE IF 

FOUND - 

SYM HOLDS POINTER TO WORDO OF GLOBAL 

6275 





/ 



ENTRY 5 

WORD TABLE 

6276 





/ 





6277 

10113 

R 

777775 

A 

XG ASS 

LAN 

- 3 


/CHAR COUNT IS 3 

627 8 

10114 

R 

040214 

R 


0 AC 

M 



6279 

10115 

R 

104660 

R 


CALL 

□CHARI 



62 B 0 

10116 

R 

103724 

R 


r* » r t 
^ « Li u 

SYNTAX 



6291 

10117 

R 

610132 

R 


JMP 

GASS5 



6282 

101 20 

R 

000003 

A 


ERR3 



/"SYNTX" 

6283 

10121 

R 

620266 

R 


JMP* 

GASS 


/POSSIBLE NAKED 

6284 

10122 

R 

440214 

R 

GASS 1 

ISZ 

M 


/BUMP CHAR COUNT 

6285 

10123 

R 

610127 

R 


JMP 

GASS 1 5 


/*12JAH12* 

6286 

10124 

R 

777777 

A 


LAN 

-1 


/EXCESS CHARS 

6297 

10125 

R 

040214 

R 


DAC 

M 



6288 

10126 

R 

610133 

R 


JMP 

GASS2 



6289 

10127 

R 

640505 

A 

GASS15 

LRS 

5 


/*12JAH12* 

6290 

10130 

R 

200204 

R 


LAC 

SYMS 


/RUNNING NAME 

6291 

10131 

R 

640605 

A 


LLS 

5 



6292 

10132 

P 

040204 

R 

GASS5 

DAC 

SYMS 



6293 

10133 

R 

104660 

R 

GASS2 

CALL 

OCHARI 



6294 

10134 

R 

103724 

R 


CALL 

SYNTAX 



6295 

10135 

R 

610122 

R 


JMP 

GASS1 



6296 

10136 

R 

0 0 000 3 

A 


ERR 3 



/"SYNTX" 

6297 





/BEGIN 

SEARCH 




6298 





/ 

SYMS HOLDS 5 BIT 

R • A . G 

L08AL NAME 

6299 

10137 

R 

440266 

R 


ISZ 

GASS 



6300 

10140 

R 

214104 

E 


LAC 

gtable 


/GET GLOBAL DIRECTORY POINTER 

6301 

10141 

R 

040177 

R 

GASS6 

DAC 

SYM 



6302 

10142 

R 

220177 

R 


LAC* 

SYM 



6303 

10143 

R 

553741 

R 


SAD 

(777777 


/END OF TABLE MARKER 

6304 

10144 

R 

ooooio 

A 


ERR 1 0 


/ " UNDEF 

H - NOT IN TABLE 

6305 

10145 

R 

540204 

R 


SAD 

SYMS 



6306 

10146 

R 

620266 

R 


JMP* 

GASS 


/GOT IT! 

6307 

10147 

R 

200177 

R 


LAC 

SYM 



6 30 9 

1 01 50 

R 

723005 

A 


AAC 

5 


/ADVANCE TO NEXT ENTRY 

6309 

10151 

R 

610141 

R 


JMP 

GASS 6 
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6311 





/GSYM 

PACKS SUBSCRIPTS INTO 

USER'S STACK. 

6312 





/ 




6313 

10152 

R 

200165 

R 

XGSYM 

LAC 

STACK 


6314 

10153 

R 

740031 

A 


TCA 



6315 

10154 

R 

340166 

R 


TAD 

SPOINT 


6316 

10155 

R 

047107 

R 


DAC 

SETIO 

/SAVE STACK POINTER OFFSET 

631 7 

10156 

R 

140177 

R 


DZM 

SYM 


631 8 

10157 

R 

140213 

R 


DZM 

□flag 

/ZERO FIRST SUBSCRIPT INDICATOR *12JAH9* 

6319 

10160 

R 

100266 

R 


CALL 

GASS 


6329 

10161 

R 

610375 

R 


JMP 

GSYMil 

/NAKED * 1 2 JAH9* 

6321 





/##### 

SAVE m 

STACK #»### 


6322 

10162 

R 

min 

A 


LAW 

-1 


632 3 

1016 3 

R 

105040 

R 


CALL 

SAVE 


6324 

10164 

R 

200207 

R 


LAC 

VAL 


6325 





/##### 


##### 


6326 

10165 

R 

220137 

R 


LAC* 

KVAR 

/IN CASE %K NEEDED 

6327 

10166 

R 

040207 

R 


DAC 

VAL 


6328 

1 0167 

R 

200177 

R 


LAC 

SYM 


6329 

10170 

R 

723002 

A 


AAC 

2 


6 3 30 

10171 

R 

040214 

R 


DAC 

M 

/POINTER TO WORD 2 - OWNERSHIP 

6331 

10172 

R 

220214 

R 


LAC* 

M 

/PICK UP OWNER 

6 3 32 

10173 

R 

440214 

R 


ISZ 

M 


633 3 

10174 

R 

440214 

R 


ISZ 

M 

/POINTER TO OPEN KEY 

6334 

10175 

R 

513702 

R 


AND 

(77 


6335 

10176 

R 

540655 

R 


SAD 

RUNNMft 


6 3 36 

10177 

R 

610350 

R 


JMP 

GSYM 3 

/ALREADY OWNED BY THIS GUY - NO 

6337 








/KEY CHECKING NECESSARY UNLESS HE INSISTS 

6338 

10200 

R 

104645 

R 


CALL 

□ CHAR 


6339 

1 0201 

R 

553724 

R 


SAD 

(33 

/LEFT BRACKET 

6340 

1 0202 

R 

741000 

A 


SKP 



6341 

1 0203 

R 

610214 

R 


JMP 

GSYM21 

/* 1 2 JAH9# 

6342 

1 0204 

R 

777777 

A 

GSYM 2 

LAW 

-1 

/SAVE SUBSCRIPT *12JAH9* 

6343 

1 0205 

R 

105040 

R 


CALL 

SAVE 

/INDICATOR * 1 2 J AH9* 

6344 

1 0206 

R 

200213 

R 


LAC 

OFLAG 

/WORD * 1 2 JAH9* 

6345 

1 0207 

R 

105242 

R 


CALL 

GETKEY 

/PUTS KEY IN VAL *12JAH9* 

6346 

10210 

R 

000003 

A 


ERR 3 


/"SYNTX" 

6347 

10211 

R 

777777 

A 


LAW 

-1 

/RESTORE * 1 2 JAH9* 

6348 

10212 

R 

105103 

R 


CALL 

UNSAVE 

/SUBSCRIPT * 1 2 JAH9* 

6349 

10213 

R 

040213 

R 


DAC 

OFLAG 

/INDICATOR * 1 2 JAH9* 

6350 





/TRY OPEN KEY 



6351 

10214 

R 

105272 

R 

GSYM 2 1 

CALL 

KEYCHK 


6352 

10215 

R 

220214 

R 


LAC* 

M 

/REQUIRED KEY 

6353 

10216 

R 

540207 

R 


SAD 

VAL 

/USER SUPPLIED KEY 

6354 

10217 

P 

741200 

A 


SNA 



6355 

1 0220 

P 

610231 

R 


JMP 

GSYMO 

/*12JAH12* OK - MATCHES OPEN KEY 

6 35 6 





/TRY READ KEY 



6357 

10 2 21 

R 

200214 

R 


LAC 

M 


6358 

1 n 2 2 2 

H 

723777 

A 


AAC 

-1 


6359 

1 0223 

p 

040214 

R 


DAC 

M 

/POINTER TO READ KEY 

6360 

1 0224 

R 

105272 

R 


CALL 

KEYCHK 


6361 

10225 

R 

220214 

R 


LAC* 

M 

/REQUIRED KEY 

6362 

1 0226 

R 

540207 

R 


SAD 

VAL 

/USER SUPPLIED KEY 
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6363 

1 0227 

ft 

740200 

A 


SZA 




6364 

3 0 2 30 

R 

000032 

A 


ERR 32 


/KEYS DO NOT MATCH 


6365 





/#####?□ PST AC K 

##### 



6366 

1 0231 

ft 

777777 

A 

GSYMQ 

LAW 

-1 

/*12JAHi2* 


6367 

10232 

R 

105103 

R 


CALL 

UNSAVE 



6368 

10 2 3 3 

R 

040207 

R 


DAC 

VAL 



6369 





/ # # # # * 


n # ft # # 



6370 

10234 

R 

104645 

R 


CALL 

□CHAR 

/ CHAR 


6371 

1 0235 

R 

553753 

R 

GSYM1 

SAD 

(50 

/( 


6372 

10236 

R 

751001 

A 


SKPiCLC 


/CLC PLACES -1 INTO ACCOM FOR SAVE 

COUNT 

637 3 

1 0237 

R 

610354 

R 


JMP 

GSYM4 



6374 





/## ### 

SAVE ON 

STACK ###*# 



6375 

10240 

R 

105040 

R 


CALL 

SAVE 



6376 

1 0 2 41 

R 

200177 

R 


LAC 

SYM 



6377 





/##### 


***** 



6378 





/ 





6379 





/ 





6380 





/**#$* 

SAVE ON 

STACK ***** 



6381 

10242 

R 

777767 

A 

GSCRIP 

LA!/v 

»11 

/*12JAH9* 


6382 

1 0243 

R 

105040 

R 


CALL 

SAVE 



6383 

10 244 

P 

207163 

R 


LAC 

EVAL 



6384 

10245 

ft 

200242 

R 


LAC 

BKCHAR 



6385 

10246 

R 

200216 

R 


LAC 

TERM 



6336 

1 0247 

R 

200215 

R 


LAC 

SUM 



6337 

1 0250 

R 

200207 

R 


LAC 

VAL 



6 3 8 8 

1 0251 

(3 

200202 

R 


LAC 

TEMP 



6389 

1 0252 

R 

207107 

R 


LAC 

SETIQ 



6390 

1 0253 

R 

200270 

R 


LAC 

GSYM 



6391 

1 0254 

ft 

20021 3 

R 


LAC 

OFLAG 

/*12JAH9* 


6392 

1 0255 

R 

744000 

A 


CLL 




6393 

1 0256 

R 

107163 

R 


CALL 

EVAL 

/EVALUATE SUBSCRIPT (WHICH MAY USE 

GLOBALS) 

6394 

1 0257 

R 

040200 

R 


DAC 

SCRIP 



6395 

10260 

R 

777767 

A 


LAiw 

-11 

/*12>JAH9* 


6396 

1 0261 

R 

105103 

R 


CALL 

UNSAVE 

/*12JAH9* 


6397 

1 0262 

ft 

040213 

R 


DAC 

OFLAG 

/*12JAH9* 


6398 

1 0263 

R 

040270 

R 


DAC 

GSYM 

/*12JAH9* 


6399 

10264 

R 

047107 

R 


DAC 

SETin 

/*1 2JAH9* 


6400 

1 0265 

R 

040202 

R 


DAC 

TEMP 

/*12JAH9* 


6401 

10266 

R 

040207 

R 


DAC 

VAL 

/*12JAH9* 


640? 

1 0267 

R 

040215 

ft 


DAC 

SUM 

/♦12JAH9* 


6403 

10270 

R 

040216 

R 


DAC 

TERM 

/*12JAH9* 


6404 

1027 1 

R 

040242 

R 


DAC 

BKCHAR 

/* 1 2 JAH9* 


6405 

10272 

R 

047163 

R 


DAC 

EVAL 

/*12JAH9* 


6406 





/ 





6407 

1 0273 

R 

200200 

R 


LAC 

SCRIP 

/FETCH SUBSCRIPT *12JAH9* 


6408 

1 0274 

R 

513661 

R 


AND 

(700000 

/<0 OR > 327.67 ? 


6409 

1 0275 

R 

741200 

A 


SNA 


/♦12JAH9* 


6410 

1 0276 

R 

610332 

R 


JMD 

GSCRlt 

/NO, PROCEED AS NORMAL 


6411 

10277 

R 

104645 

R 


CALL 

OCHAR 

/LAST *12JAH9* 


6412 

1 0 300 

'r 

553754 

R 


SAD 

(51 

/SUBSCRIPT ? ) * 1 2 JAH9* 


6413 

10301 

R 

741000 

A 


SKP 


/* 1 2 JAH9* 


6414 

1 0302 

R 

000006 

A 


ERR6 


/NO, RANGE ERROR *12JAH9* 
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6415 

1 0303 

R 

200270 

R 


LAC 

GSYM 

6416 

10304 

R 

513657 

R 


AND 

(77777 

6417 

10305 

R 

554112 

E 


SAD 

HFGL01 

6419 

1 0306 

R 

610330 

P 


JMP 

GSYM10 

6419 

1 0 30 7 

R 

554146 

E 


SAD 

QF7 

6420 

10 310 

P 

751001 

A 


SKP1CLC 


6421 

10311 

R 

000006 

A 


ERR6 


642? 

1 031 2 

R 

1 05040 

R 


CALL 

SAVE 

6423 

10313 

R 

207107 

R 


LAC 

SETIO 

6424 

10 314 

R 

104660 

R 


CALL 

OCHARI 

6425 

10 315 

R 

200213 

R 


LAC 

OFLAG 

6426 

10 316 

R 

741300 

A 


SPA 1 SNA 


6427 

10317 

R 

634136 

E 


JMP* 

OF 2 

6428 

1 0320 

R 

513672 

R 


AND 

(177777 

6429 

10321 

R 

740200 

A 


SZA 


6430 

1 0322 

R 

634140 

E 


JMP* 

0F5 

6431 

10323 

R 

777776 

A 


LAW 

-2 

6432 

10 3 2 4 

R 

105103 

R 


CALL 

UNSAVE 

6433 

10325 

R 

047107 

R 


DAC 

SETIO 

6434 

10 3 26 

R 

040177 

R 


DAC 

SYM 

6435 

10327 

R 

634147 

E 


JMP* 

QF9 

6436 

1 0330 

R 

777777 

A 

GSYM10 

LAW 

-1 

6437 

1 0331 

R 

040200 

R 


DAC 

SCRIP 

6438 





/ 



6439 





/ 



6440 





/##*## 

SAVE ON 

STACK «#### 

6441 

1 0332 

R 

777777 

A 

GSCRI 1 

LAW 

-1 

6442 

10333 

R 

105040 

P 


CALL 

SAVE 

6443 

1 03 34 

R 

200200 

R 


LAC 

SCRIP 

6444 





/##### 


##### 

6445 

1 0335 

R 

440213 

R 


ISZ 

OFLAG 

6446 

1 0336 

R 

104645 

R 


CALL 

□char 

6447 

10337 

R 

553767 

R 


SAD 

(54 

6448 

1 0 340 

R 

610242 

R 


JMP 

GSCRIP 

6449 

10341 

R 

553754 

R 


SAD 

(51 

6450 

10342 

R 

751001 

A 


SKP'CLC 


6451 

1 0 34 3 

R 

000003 

A 


ERR 3 


645? 





/##### 

SAVE ON 

STACK ##### 

6453 

10344 

R 

1 05040 

R 


CALL 

SAVE 

6454 

1 0345 

R 

207107 

R 


LAC 

SETIO 

6455 

10346 

R 

104660 

R 


CALL 

OCHARI 

6456 

1 0347 

R 

620270 

R 


JMP* 

GSYM 

6457 





/ 



6458 

1 0350 

R 

104645 

R 

GSYM3 

CALL 

OCHAP 

6459 

1 0351 

R 

553724 

R 


SAD 

(33 

6460 

1 0352 

R 

610204 

R 


JMP 

GSYM 2 

6461 

1 0353 

R 

610231 

R 


JMP 

GSYMO 

646? 

1 "354 

p 

553754 

R 

GSYM4 

SAD 

(51 

6463 

10355 

R 

610363 

R 


JMP 

GSYM 5 

6464 

10356 

R 

200270 

R 


LAC 

GSYM 

6465 

10857 

R 

513657 

R 


AND 

(77777 

6466 

10360 

R 

554007 

R 


SAD 

(GKILL2 


/WHERE DID m ENTER XSSYM FROM? *12JAH9* 
/MASK ADDRESS SITS *12JAH9* 

/*12JAH12* FROM SHIGH 
/YES *12JAH9* 

/ * 1 2 J AH 1 2* FROM $QUERY? 

/YES *12JAH9* 

/NO, RANGE ERROR *12JAH9* 

/STACK SUBSCRIPT START PTR INFO *12JAH9* 
/* 1 2 JAH9* 

/FETCH NEXT CHAR *12JAH9* 

/ * 1 2 J AH9* 

/FIRST SUBSCRIPT? *12JAH9* 

/* 1 2 JAH1 2* YES, NOT NAKED 

/NAKED FIRST SUBSCRIPT? *12JAH9* 

/*12JAH9* 

/* 1 2 JAH1 2* NO, JOIN $0 
/YES *12JAH9* 

/*1 2JAH9* 

/*12JAH9* 

/*12JAH9* 

/*1 2 JAH1 2* RETURN TO $0 

/SET TO NEGATIVE SUBSCRIPT *12JAH9* 

/FOR SHIGH *12JAH9* 


/* 1 2 J AH9* 

/PUT SUBSCRIPT INTO STACK 
/ 1 NCR # OF SUBSCRIPTS' *12JAH9* 

/, 

/MORE 

/) 

/CLC PLACES -1 INTO ACCOM FOR SAVE 
/ " S Y N T X ” 


/OLD STACK POINTER 
/RETURN WITH NEXT CHAR 
/DONE 


/LEFT BRACKET 

/HE INSISTS ON A KEY CHECK 
/♦12JAH12* NO KEY GIVEN, BUT HE'S OK 
/) 

/UN5UBSCRIPTED KILL "GLD 
/M2JAH12* 
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6467 

1 0361 

K 

610402 

R 


JMP 

GSYM6 

/YES 

6468 

1 0362 

R 

000003 

A 


ERR3 


/HO, M S Y N T X " 

6469 

1 0363 

R 

200270 

R 

GSYM5 

LAC 

GSYM 

/FIRST LEVEL SO CALL? 

6470 

10364 

R 

513657 

R 


AMD 

(77777 

/♦I 2 JAH1 2* 

6471 

1 0365 

R 

554140 

E 


SAD 

OF 5 

/*1 2JAH12* 

6472 

1 0366 

R 

741000 

A 


SKP 



6473 

1 0 367 

R 

000003 

A 


ERR 3 


/NO* H SYMTX M 

6474 

1 0 3 70 

R 

777776 

A 


L A W 

-2 

/YES 

6475 

10371 

R 

105040 

R 


CALL 

SAVE 


6476 

10 3 7 2 

R 

200177 

R 


LAC 

SYM 


6477 

10373 

R 

207107 

R 


LAC 

SETIO 


6478 

1 0374 

R 

634136 

E 


JMP* 

0F2 

/* 1 2 JAH1 2* GG FETCH 131 GLOBAL 

6479 

1 0375 

P 

652000 

A 

gsymii 

LMQ 


/SAVE CHAR *12JAH9* 

6490 

1 0376 

R 

213663 

R 


LAC 

(200000 

/INDICATE NAKED *12JAH9* 

6481 

1 0377 

R 

040213 

R 


DAC 

OFLAG 

/♦12JAH9* 

6492 

1 0400 

R 

641002 

A 


LACQ 


/RETRIEVE CHAR *12JAH9* 

6493 

1 0 401 

R 

610235 

R 


JMP 

GSYMi 

/*1 2 JAH9* 

6494 

1 0402 

R 

777775 

A 

GSYM6 

LAW 

-3 

/STACK PSEUDO SUBSCRIPT 

6485 

1040 3 

R 

105040 

P 


CALL 

SAVE 


64 8 6 

10404 

R 

200177 

R 


LAC 

SYM 


6487 

1 0405 

R 

750000 

A 


CLA 


/FAKE SUBSCRIPT 

6498 

1 0406 

R 

207107 

R 


LAC 

SETin 


6489 

10 4 0 7 

R 

610110 

R 


JMP 

GKILL3 

/ENTER GLOBAL ROUTINES 


6490 .EJECT 


SLK 
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6491 

6492 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 


AND KILL FUNCTION 


/global subroutine 
/ 

/GET f PUT 
/ 

glfnct saves function 

GET - GLFNCT=0 
PUT - GLFNCT=1 


CALLS 

GET 

PUT 


JOIN 

KILL 


CLA 

CALL 


PUT - GLFNCT=2 

- GLFNCT=777777 (DR ANYTHING MEG.) 


CALL 
KILL CLC 
CALL 

RETURNS: 


GLOBAL 
AC=400009 (200000 

GLOBAL 


IF JOIN PUT) 


GLOBAL 


6510 





/ 

get GOOD 

SUBSCRIPT IN MQ 


651 1 





/ 


LINK SET IF STRING 


6512 





/ 


LAC* R 1 7 GETS DATA 


651 3 





/ 


LAC* 15 GETS SUBSC 

RIPT 

6514 





/ 

BAD 

CLEAR LINK 


6515 





/ 


MO = 0 IF NODE NOT 

DEFINED 

6516 





/ 


MO = -0 IF POINTER 

(BUT NO DATA) IS TH 

6517 





/ 

PUT SUB 

IN MO 


6518 





/ 

LAC* 

15 GETS SUBSCRIPT 


6519 





/ 

MEN 

DATA AT BOTTOM OF BLOCK 

6520 





/ 

KILL 

CLEAR MO IF THERE WERE LOWER LEVELS 

6521 





/ 

SUB 

IN MQ IF NO LOWER LEVELS 

6522 





/ 




6523 





/ 




6524 

1 0410 

R 

103641 

R 

xglqbal call 

PRODA 

/GET DISK 

6525 






. IFPNZ FMONEY 


6526 

10411 

R 

553662 

R 


SAD 

(400000 

/PUT? 

6527 

10412 

R 

610564 

R 


JMP 

FPF.RRC 

/YES 

6528 

10413 

p 

553663 

R 


SAD 

(200000 

/PUT? 

6529 

10414 

R 

6 1 0564 

R 


JMP 

FPERRC 

/YES 

6530 






.EM DC 


6531 

1041 5 

R 

051327 

R 

GBA 

CK1 DAC 

GLFNCT 


6532 

10416 

R 

777776 

A 


LAW 

-2 


6533 

10417 

R 

340166 

R 


TAD 

SPOINT 

/COMPLEMENTS LINK 

6534 

1 0 4 20 

R 

051321 

R 


0 AC 

GO ONE 

/POINTER TO LAST SUB 

6535 

1.0421 

R 

040166 

R 


0 AC 

SPOINT 


65 $6 

1 0422 

R 

44016b 

R 


ISZ 

SPOINT 


6537 

10423 

P 

220166 

R 


LAC* 

SPOINT 


6538 

1 0424 

R 

340165 

R 


TAD 

STACK 

/ADD OFFSET 

6539 

10425 

R 

040166 

R 


DAC 

SPOINT 

/RESTORE STACK POINT 

6540 

1 0 4 2 6 

R 

051326 

R 


DAC 

GINDRX 

/POINTS TO GLOBAL ' N 

6541 

1 0 4 2 7 

R 

200166 

P 


LAC 

SPOINT 

/CALCULATE *12-3* 

6542 

1 0430 

R 

740031 

A 


TCA 


/EFFECTIVE *12-3* 


N STACK 
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6543 

1 0431 

R 

351321 

R 


TAD 

GDQNE 

6544 

1 0432 

R 

723002 

A 


AAC 

2 

6545 

1 0433 

R 

040017 

A 


DAC 

R 1 7 

6546 

1 0434 

R 

744010 

A 


RCL 


6547 

1 0435 

R 

300017 

A 


ADD 

R17 

6548 

1 0436 

R 

3601 46 

P 


TAD* 

SVAR 

6549 

10437 

R 

060146 

R 


DAC* 

SVAR 

6550 

1 0440 

R 

231326 

R 


LAC* 

GINDEX 

6551 

1 0441 

R 

740200 

A 


SZA 


6552 

10442 

R 

040254 

R 


DAC 

GSYMBOL 

655 3 

10443 

R 

200254 

R 


LAC 

gsymrol 

6554 

10444 

R 

741200 

A 


SNA 


6555 

10445 

R 

000013 

A 


ERR 1 3 


6556 

1 0446 

R 

740030 

A 


I AC 


6557 

1 0447 

R 

040017 

A 


DAC 

R17 

6558 

10450 

R 

211327 

R 


LAC 

GLFNCT 

6559 

1 0451 

R 

745200 

A 


SNAICLL 


6560 

10452 

R 

744002 

A 


STL 


6561 

10453 

R 

220017 

A 


LAC* 

R17 

656 2 

1 0 4 54 

R 

513702 

R 


AND 

(77 

6563 

1 0455 

R 

240655 

R 


X OR 

RUNNMR 

6564 

1 0456 

R 

744600 

A 


SZAJSNL! 

CLL 

6565 

1 0 457 

R 

000020 

A 


ERR20 


6566 

10460 

P 

231326 

R 


LAC* 

GINDEX 

6567 

1 0461 

R 

745200 

A 


SNAICLL 


6568 

1 04b2 

R 

610600 

R 


JMP 

GNOSYM 

6569 

1 0463 

R 

040017 

A 


DAC 

R 1 7 

6570 

1 0464 

R 

040255 

R 


DAC 

GHDQLD 

6571 

10465 

R 

220017 

A 


LAC* 

R 1 7 

6572 

10 466 

R 

040253 

R 


DAC 

GHEAD 

6573 

1 0467 

R 

220017 

A 


LAC* 

R17 

6574 

10470 

R 

653603 

A 


LMQiCLAC 

: • LLS+3 

6575 

10471 

R 

040247 

R 


DAC 

GUN IT 

6576 

1 047? 

R 

200253 

R 


LAC 

GHEAD 

6577 

1 0473 

R 

040253 

R 

GBACK2 

DAC 

GHEAD 

6578 

1 0 47 4 

R 

451326 

R 


ISZ 

GINDEX 

6579 

10475 

R 

1 40252 

R 

GBACK3 

DZM 

GHI 

6580 

10 4 7 6 

R 

652000 

A 


LMQ 


6581 

1 0477 

R 

200272 

R 


LAC 

GLOBAL 

658 2 

t 0500 

R 

513657 

R 


AND 

(77777 

6583 

1 0501 

R 

554137 

E 


SAD 

GF3 

6584 

10502 

R 

620272 

R 


JMP * 

GLOBAL 

6585 

1 0503 

R 

64100? 

A 


LACQ 


6586 

10504 

P 

111331 

R 

G 6 A C K 4 

JMS 

GOISK 

6587 

1 0505 

R 

540704 

R 

GBACK5 

SAD 

QSKBFF 

6588 

10506 

R 

610572 

R 


JWP 

GOOFF 

6589 

1 0507 

R 

200272 

R 


LAC 

GLOBAL 

6590 

10510 

P 

513657 

P 


AND 

(77777 

6591 

1051 1 

R 

554010 

R 


SAD 

CGKILL4 

6592 

1051? 

R 

741000 

A 


SKP 


6593 

10513 

R 

610535 

R 


JMP 

BACKS A 

6594 

10514 

R 

1 11426 

R 

BACK56 

JMS 

GLSET 


/PGP OF STACK *12-3* 

/* 1 2-3* 

/R17 USED AS TEMP STORAGE *12-3* 
/MULTIPLY BY *12-3* 

/ 3 CHARS PER WORD *12-3* 

/ALTER %S *12-3* 

/ACCORDINGLY *12-3* 

/GET NAME 
/NAKED? 

/NO 

/IS THERE A NAME 
/NO , "GLOBE” 

/INCREMENT POINTER INTO GLOBAL TABLE 

/FETCH INPUT CODE *12-3* 

/CLEAR LINK = GET *12-3* 

/*! 2-3* 

/GET WORD 3 OF THE GLOBAL 
/OWNERSHIP BITS 

/LINK CLEAR IF KILL OR PUT 
/"CLOSE" 

/GET NAME 
/NAKED ACCESS ? 

/YES 

/NO 

/SET UP POINTERS 


/NEXT SUBSCRIPT 

/NO EMPTIEST BLOCK (SEE GC0NT1) 


/*12JAH12* FIRST LEVEL $0 CALL? 
/*12JAH12* 

/YES, EXIT 
/NO 

/READ - RETURNS WITH SEND AND R17 SET 
/CHECK FOR OFFSET=0 (SEND IN AC) 

/O OFFSET, GO SEE W HAT FUNCTION 
/UNSUBSCRIPTED KILL? 

/* 1 2 JAH1 2* 

/YES 

/NO, PROCESS AS NORMAL 
/RESET R 1 7 ON XFER TO HERE 
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6595 

10515 

R 

200017 

A 


LAC 

R17 

6596 

10516 

R 

551322 

R 


SAD 

GEND 

6597 

10517 

R 

610525 

R 


JMp 

8ACK5C 

6598 

10520 

R 

220017 

A 


LAC* 

R17 

6599 

10521 

R 

513657 

P 


AND 

(77777 

6600 

10522 

R 

071326 

R 


DAC* 

gindex 

6601 

1.0523 

R 

111426 

R 


JMS 

GLSET 

6602 

1 0524 

R 

610540 

R 


JMP 

G8ACK6 

6603 

1 0525 

R 

220704 

R 

BACK5C 

LAC* 

DSK6FF 

6604 

1 0526 

R 

741200 

A 


SNA 


6605 

10527 

R 

611311 

R 


JMP 

GEXIT 

6606 

1 0530 

R 

074105 

E 


DAC* 

GTMBUF 

6607 

10531 

P 

040172 

R 


DAC 

W RTS W 

6608 

10532 

R 

160704 

R 


DZM* 

DSKBFF 

6609 

10533 

R 

750000 

A 


CLA 


6610 

10534 

R 

611225 

R 


JMP 

GTHRED 

6611 

10535 

p 

231326 

R 

BACKS A 

LAC* 

gindex 

6612 

10536 

R 

745100 

A 


SPA iCLL 


6613 

10537 

R 

610603 

R 


JMP 

GHIGHO 

6614 





/ 



6615 

10540 

R 

200017 

A 

GRACK6 

LAC 

R 1 7 

6616 

10541 

R 

551322 

R 

G8ACK7 

SAD 

GEND 

6617 

1 0542 

R 

610651 

R 


JMP 

GCONT 

5618 

1 0543 

R 

220017 

A 


LAC* 

R17 

6619 

1 0544 

R 

652000 

A 


LMQ 


6620 

10545 

R 

513657 

R 


AND 

(77777 

6621 

10546 

R 

571326 

R 


SAD* 

GINDEX 

6622 

10547 

R 

610700 

R 


JMP 

GNEXT 

6623 

1 0550 

R 

641002 

A 


LACQ 


6624 

10551 

R 

745110 

A 


SPAiRCL 


6625 

10552 

R 

440017 

A 


ISZ 

R 1 7 

6626 

10553 

R 

7451 1 0 

A 


SPAiRCL 


6627 

1 0554 

R 

440017 

A 


ISZ 

R 1 7 

6628 

1 0555 

R 

744100 

A 


SMAiCLL 


6629 

10556 

R 

610540 

R 


JMP 

GBACK6 

6630 

1 0557 

R 

220017 

A 


LAC* 

R 1 7 

6631 

1 0560 

R 

653606 

A 


LMOiCLAC 

!!LLS + 6 

6632 

1 0561 

R 

300017 

A 


ADD 

Rt 7 

663 3 

10562 

R 

0400)7 

A 


DAC 

R 1 7 

6634 

1 0563 

p 

610541 

R 


JMP 

G3ACK7 

6 6 35 





/ 



6636 






.IFPNZ 

FMONEY 

6637 

1 0564 

R 

652000 

A 

FPERRC 

LMQ 


6638 

10565 

R 

750030 

A 


CL A J I AC 


6639 

1 0566 

P 

54021 1 

p 


SAD 

VALF 

6640 

10567 

R 

000017 

A 


ERR17 


6641 

1 0570 

R 

641.002 

A 


LACQ 


6642 

1 0571 

R 

610415 

R 


jvp 

GHACK1 

6643 






• ENDC 


6 6 4 4 





/ 



6645 





/BLOCK 

READ HAS 

0 OFFSET 

6646 





/ 




/END OP VALID DATA IN BLOCK 
/YES 

/FETCH SUBSCRIPT 

/SPECIFY IT AS SUBSCRIPT TO LOOK FOR 
/RESET R1 7 

/RETURN TO NORMAL PROCESSING 
/ANY CHAINED BLOCKS? 

/NO, DONE 

/YES, PREPARE TO DETACH ALL THOSE THAT FOLLOW 
/MAKE SURE THIS BLOCK IS UPDATED 
/NOW THIS IS ONLY 8LK AT LEVEL 

/GO DELETE REST OF LEVEL 
/GET SUBSCRIPT OUT OF STACK 

/SH COMPLEMENTS LAST SUBSCRIPT IN STACK *12JAH9* 


/END OF VALID DATA IN BLOCK ? 

/END OF DATA, NO MATCH IN PRESENT BLOCK 
/GET SUBSCRIPT FROM BLOCK 


/COMPARE 

/MATCH IN PRESENT BLOCK 

/GET BACK SUBSCRIPT WITH PN$ BITS... 

/...AND SKIP OVER POINTER AND/OR VALUE 


/STRING PRESENT IF MINUS 


/ADD OFFSET TO POINTER 


/GO LOOK AT NEXT SUB 


/FLOATING POINT? 

/YES, F.P. CANNOT BE PUT IN GLOBAL 


(FROM FREE LIST) 
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6647 

10572 

R 

140172 

R 

GOOFF 

DZM 

4 R T S W 

/DON’T WRITE BLOCK 

6648 

1 0573 

R 

211327 

R 


LAC 

GLFNCT 

/CHECK FUNCTION 

6649 

10574 

R 

740200 

A 


SZA 



6650 

10575 

R 

000021 

A 


ERR21 


/PUT OR KILL - "IODSK" 

6651 

1 0576 

R 

160704 

R 


DZM* 

DSKRFF 

/ZORCH CONTINUATION POINTER 

6652 

1 0577 

R 

610651 

R 


JMP 

gcont 

/TREAT AS LAST BLOCK IN CHAIN 

665 3 





/ 




6654 





/ 




6655 





/NAKED 

REFERENCE 


6656 





/ 




6657 

10600 

R 

451326 

R 

GNOSYM 

ISZ 

gindex 


6658 

10601 

R 

1 1142b 

R 


JMS 

GLSET 


6659 

10602 

R 

610505 

9 


JMP 

G8ACK5 


6660 





/ 




6661 





/ 




6662 





/SEARCH 

BLOCK IN 

CORE FOR 

NEXT HIGHER SUBSCRIPT ($H) 

6663 





/ 




666 4 

1 0603 

R 

23132b 

R 

GHIGHO 

LAC * 

gindex 

/FETCH LAST SUBSCRIPT? *12JAH9* 

6665 

10604 

R 

553662 

R 


SAD 

( 400000 

/SH WN AT VERY FIRST SUBSCRIPT (EVEN IF ZERO)? *12JAH9* 

6666 

10605 

R 

750000 

A 


CLA 


/YES *12JAH9* 

6667 

1 0606 

R 

040016 

A 


DAC 

R16 

/*! 2JAH9* 

6668 

10607 

R 

200017 

A 

GHIGH 

LAC 

R 1 7 


6669 

10610 

R 

551322 

R 

GHIGH1 

SAD 

GEND 


6670 

10611 

R 

610651 

R 


JMP 

gcont 


6671 

1 0612 

R 

220017 

A 


LAC* 

R 1. 7 


6672 

10613 

R 

652000 

A 


LMQ 



6673 

10614 

R 

513657 

R 


AND 

(77777 


667 4 

10615 

R 

340016 

A 


TAD 

R 1 6 

/* 1 2 JAH9* 

6675 

10 616 

R 

740101 

A 


SMA1CMA 



6676 

10517 

R 

610634 

R 


JMP 

GHIGH3 


6b 7 7 

10620 

R 

641002 

A 

GH1GH2 

LACQ 


/SKIP TO NEXT SUBSCRIPT 

6679 

10521 

R 

745110 

A 


SPA’RCL 



6679 

1 0622 

R 

440017 

A 


ISZ 

R 1 7 


668 0 

1 0623 

R 

745110 

A 


SPA1RCL 



6681 

1 0624 

R 

440017 

A 


ISZ 

R17 


6692 

1 0625 

R 

744100 

A 


SMA’CLL 



6683 

10626 

R 

610607 

R 


JMP 

GHIGH 


668 4 

10627 

R. 

220017 

A 


LAC* 

R 1 7 


6685 

1 0630 

R 

653606 

A 


LMQ1CLAC 

i LLS+6 


6686 

10631 

p 

30001 7 

A 


ADD 

R 1 7 


6697 

1063? 

R 

040017 

A 


DAC 

R 1 7 


6688 

1 0633 

R 

610610 

R 


JMP 

GHIGH1 


6699 





/ 




6690 

1 0634 

R 

553741 

R 

GHIGH 3 

SAD 

( - 1 

/SUBSCRIPT EXACTLY .01 HIGHER? *12JAH9* 

6691 

10635 

R 

610645 

R 


JMP 

GHIGH4 


6692 

1 0636 

R 

340016 

A 


TAD 

R 1 6 

/* 1 2 JAH9* 

6693 

1 0637 

R 

300217 

R 


ADD 

AC TEMP 


6694 

10640 

P 

741101 

A 


SPA !CMA 



6695 

1 0641 

R 

610620 

R 


JMP 

G4IGH2 


6696 

10642 

R 

300217 

R 


ADD 

ACTEMP 


6697 

1 0643 

R 

040217 

R 


DAC 

ACTEMP 

/NEXT HIGHEST SO FAR 

6699 

1 0644 

R 

610620 

R 


JMP 

GHIGH2 




PAGE 172 

MUMPS 

100 

r 

O 

L03AL VARIABLE ROUTINES 


6699 

10645 

R 

2 0 0 0 1 6 

A 

GHIGH4 

LAC 

R 1 6 


6700 

10646 

R 

740031 

A 


CM A 1 1 AC 



6701 

1 0547 

R 

040217 

R 


DAC 

ACTEUP 


6702 

1 0650 

R 

61 1304 

R 


JMP 

GXTBAD 


6703 





/ 




6704 





/ 




6 70S 





/HAVEN ' 

1 T FOUND 

SUBSCRIPT 

YET - 

6706 





/NAKED 

REFERENCES SEARCH 

FIRST 

6707 





/FOLLOWS THE CHAIN. THIS 

TAKES 

6708 





/ 




6709 

10651 

R 

220704 

P 

GCQNT 

LAC* 

DSKBFF 


6710 

1 0 6 5 2 

R 

751201 

A 


SNA 1CLA 

ICMA 


6711 

1 0653 

P 

610672 

R 


JMP 

NKDCHK 


671? 





/ 




6713 

10654 

R 

251322 

R 


XOR 

GEND 


6714 

10655 

R 

300704 

R 


ADD 

DSKBFF 


6715 

1 0656 

R 

652004 

A 


LMQiCMQ 



6716 

10657 

R 

300252 

R 


ADD 

GHI 


6717 

1.0660 

R 

751100 

A 


SPAICLA 



6718 

106 61 

R 

200252 

R 


LAC 

GHI 


671 Q 

1 066? 

R 

740200 

A 


SZA 



6720 

10 6 6 3 

R 

610670 

R 


JMP 

GCQNT 1 


6721 

10664 

R 

641002 

A 


LACQ 



6722 

1 0665 

R 

040252 

R 


DAC 

GHI 


6723 

10666 

R 

200171 

R 


LAC 

OBPNT 


6724 

1 0667 

R 

040251 

R 


DAC 

GBLKHT 


6725 

10670 

R 

220704 

R 

GCQNT 1 

LAC* 

DSKBFF 


6726 

1 0671 

R 

61 0504 

R 


JMP 

GBACK4 


6727 





/ 




6728 

10672 

R 

220166 

R 

nkdchk 

LAC* 

SPG I NT 


6729 

10673 

R 

740201 

A 


SZA ICMA 



67 30 

1 0674 

R 

611130 

R 


JMP 

GUND5 


673 1 

1 0675 

P 

060166 

R 


DAC* 

SPOIMT 


6732 

10676 

R 

200253 

R 


LAC 

GHEAD 


6733 

10677 

R 

610475 

R 


JMP 

G8ACK3 


6734 





/ 




67 35 





/FOUND 

SUBSCRIPT AT THIS 

LEVEL. 

6736 





/ 




67 37 

1 0700 

R 

21 1 326 

R 

GNEXT 

LAC 

GTNDEX 


6 7 3 8 

1 0 7 0 1 

R 

551321 

R 


SAD 

GDONE 


6739 

10702 

R 

610712 

R 


JMP 

GFOUND 


6740 

1 0703 

R 

641002 

A 


LACQ 



6741 

10704 

R 

740100 

A 


S ,v A 



6742 

10705 

R 

611142 

P 


J M P 

GUND6 


6743 

10706 

P 

200253 

R 


LAC 

GHEAD 


6744 

10707 

R 

040255 

R 


DAC 

GHDOLD 


6745 

10 710 

R 

220017 

A 


LAC* 

R 1 7 


6746 

10711 

P 

610^73 

R 


JMP 

G8ACK2 


6747 






.EJECT 




/*1 2JAH9* 


QNTIMUE ALONG CHAIN IF POSSIBLE 
HE BLOCK IN CORE # THEM 
ADVANTAGE OF THE CHAIN SPACING. 


/IS THERE A CONTINUATION BLOCK? 

/NO, REQUESTED SUBSCRIPT HAS NOT BEEN FOUND. CHK IF NAKED 

/YES - GET -GENQ IN AC 

/NOW HAVE -(WORDS USED IN BLOCK) 

/COMPARE TO LEAST USED SO FAR 

/GHI=0 MEANS ALWAYS WANT THIS BLOCK 

/♦12JAH12* 

/THIS BLOCK HAS MORE SPACE 
/.. .SO REMEMBER HOW MUCH... 

/...AND WHICH BLOCK IT IS 
/*12JAH12* GO GET CONT 3LK 


/CHK FOR NAKED ACCESS' 

/NOT NAKED SO DIDN'T FIND THE SUBSCRIPT 

/WAS NAKED ACCESS, SET NAME TO -1 SO THAT NEXT TIME THRU EXITS 
/GET HEAD BLOCK OF THIS LEVEL 
/AND BEGIN SEARCH AT TOP 


/MORE SUBS? 

/NO MORE SUBSCRIPTS IN THE STACK 

/POINTER PRESENT? 

/NO POINTER TO NEXT LEVEL 

/SAVE HEAD ADDRESS AND DROP A LEVEL 
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6783 

6784 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 


173 MUMPS 100 GLOBAL VARIABLE ROUTINES 

/found final subscript, action : 

/ GET DONE, -EXIT WITH MQ, R15, AMD R17 SET UP. 

/ PUT SAVE POINTER (IE IT EXISTS) AND SUBSCRIPT (IN STACK), 

/ DELETE OLD DATA BY COPYING REST OF BLOCK UP OVER IT. FIND 

/ SPACE (NOT NEC. IN THIS BLOCK) AND COPY IN SUB, POINTER, 






/ 

AND NEW 

DATA (FROM VAL 

OR BUFF2 ) . 





/ KILL 

SAME AS 

PUT, RUT GOES 

TO GTHRED INSTEAD OF ADDING DATA 

10712 

R 

211327 

R 

/ 

GFOU’ND 

LAC 

GLFNCT 


10 713 

R 

755201 

A 


SNA'CLLl 

CLC 


10714 

R 

744002 

A 


STL 


/YES 

10715 

R 

340017 

A 


TAD 

R17 

/COMPLIMENTS LINK 

10716 

R 

040016 

A 


DAC 

R16 

/DECREMENT POINTER AND SAVE 

10 717 

R 

040015 

A 


DAC 

R 1 5 


10720 

R 

641002 

A 


LACQ 



1 072 1 

R 

740400 

A 


SNL 



10722 

R 

611075 

R 


JMP 

GFND7 

/GET - DONE 

10723 

R 

514011 

R 


AND 

(477777 

/SUBSCRIPT WITH P BIT 

10724 

R 

071326 

R 


DAC* 

GINDEX 

/FORGET NS BITS 

10725 

R 

751100 

A 


SPA'CLA 


/SAVE 0... 

1 0726 

R 

220017 

A 


LAC* 

R t 7 

/...OR POINTER... 

1 0727 

p 

074105 

E 


DAC* 

GTMBUF 

/...IN FIRST WORD OF GTMBUF 

1 07 30 

P 

641002 

A 


LACO 


/WHOLE SUBSCRIPT AGAIN 

1 07 3 1 

R 

742010 

A 


RTL 


/M RIT IN LINK 

10732 

R 

741410 

A 


SZLiRAL 



10733 

P 

611001 

R 


JMP 

GFNOOA 

/♦12JAH11* IS NUMERIC 

1 0734 

R 

744400 

A 


SNLiCLL 



10735 

R 

610773 

R 


JMP 

GFNDO 

/*1 2 JAH1 1 * POINTER ONLY 

1 07 36 

R 

220017 

A 


LAC* 

R 1 7 

/S - GET OFFSET 

10737 

R 

653606 

A 


LMQICLAC 

::lls+6 


10740 

R 

051325 

Q 


DAC 

GNOWDS 

/SAVE OFFSET 

10741 

R 

211327 

9 


LAC 

GLFNCT 


1 07 42 

R 

751101 

A 


SPA'CLA « 

CM A 

/KILL? 

1 0743 

R 

610770 

R 


JMP 

GFNDA 

/YES, NO SHORT CUT 

10744 

R 

540207 

R 


SAD 

VAL 

/IS REPLACEMENT STR OR NUM? 

10745 

R 

610747 

p 


JMP 

GFNDR 

/STRING 

10746 

R 

610770 

R 


JMP 

GFNDA 

/INSERT NUMERIC VALUE 

1 0747 

R 

220133 

R 

GFNDB 

LAC* 

BUFF 2 

/FETCH REPLACEMENT 

10750 

R 

653606 

A 


LMQ'CLAC 

‘ * LLS + 6 

/OFFSET 

1 0751 

p 

551325 

R 


SAD 

GNOWDS 

/SAME AS OLD OFFSET? 

10752 

R 

741001 

A 


S K P 1 C M A 


/YES, SET UP COUNTER 

1 0753 

R 

610770 

R 


JMP 

GFNDA 

/NO, TAKE ' LONG 1 CUT 

1 0754 

R 

051325 

R 


DAC 

GMOWDS 


1 0 7 5 5 

R 

777777 

A 


LAW 

-1 

/BACKUP 

10756 

R 

3401 33 

R 


TAD 

BUFF2 

/REPLACEMENT PTR 

1 0 7 5 7 

R 

040016 

A 


DAC 

R 1 6 


1 0 760 

R 

777777 

A 


LAW 

-1 

/BACKUP 

10761 

9 

340017 

A 


TAD 

R 1 7 

/OVERLAY PTR 

10762 

9 

040017 

A 


DAC 

R 1 7 


1 0763 

R 

220016 

A 


LAC* 

R 1 6 

/INSERT NEW STRING 

1 0764 

R 

060017 

A 


DAC* 

R 1 7 


1 0765 

R 

451325 

R 


ISZ 

GNQWDS 
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6900 

1 0766 

R 

610763 

R 


JMP 

.~3 

6801 

10 7 6 7 

R 

611013 

R 


JMP 

GFNDOB 

680 7 

1 0770 

R 

211325 

R 

G F N D A 

LAC 

gnqwds 

680 8 

1 077 1 

R 

300017 

A 


ADD 

R 1 7 

6804 

10772 

R 

040017 

A 


DAC 

R 1 7 

6805 

10773 

R 

200017 

A 

GFNDO 

LAC 

R17 

6806 

10774 

R 

551 322 

R 


SAD 

GEND 

680 7 

10 7 7 5 

R 

611016 

R 


JMP 

GFND1 

6 80 8 

1 0776 

R 

220017 

A 


LAC* 

R 1 7 

6809 

1 0777 

R 

060016 

A 


DAC* 

R16 

6810 

11000 

R 

610773 

R 


JMP 

GFNDO 

6811 





/ 



6812 

1 1001 

R 

440017 

A 

GFNDO A 

1SZ 

R17 

681 3 

1 1 002 

R 

211327 

R 


LAC 

GLFNCT 

6814 

11003 

R 

751101 

A 


SPA'CLA 

i CM A 

6815 

1 1004 

R 

610773 

R 


JMP 

GFNDO 

6816 

1 1005 

R 

540207 

R 


SAD 

VAL 

6817 

1 1 006 

R 

610773 

R 


JMP 

GFNDO 

6818 

11007 

R 

340017 

A 


TAD 

R 1 7 

6819 

11010 

R 

040017 

A 


DAC 

R 1 7 

6820 

11011 

R 

200207 

R 


LAC 

VAL 

6821. 

11012 

R 

060017 

A 


DAC* 

R 1 7 

68 2 2 

11013 

R 

777777 

A 

GFNDOB 

LAW 

-1 

682 8 

11014 

R 

040172 

R 


DAC 

WRTSW 

6824 

11015 

R 

611054 

R 


JMP 

GFNU4A 

6825 





/ 



6826 

1. 1 0 1 6 

R 

200016 

A 

GFND1 

LAC 

R 1 6 

6b 2 7 

11017 

R 

111412 

R 


JMS 

GOFF 

6828 

110 2 0 

R 

211327 

R 


LAC 

GLFNCT 

6929 

11021 

R 

755100 

A 


SPAiCLL 

! CL A 

6830 

11022 

R 

611225 

R 


JMP 

GTHREP 

6835 

11023 

R 

213705 

R 

GFND2 

LAC 

(2 

69 32 

110 2 4 

R 

051325 

R 


DAC 

GNOWDS 

68 3 3 

1 1 025 

R 

750001 

A 


CLA iCMA 


68 34 

11026 

R 

540207 

R 


SAD 

VAL 

6835 

11027 

R 

611057 

R 


JMP 

GFMD5 

6836 

1 1030 

R 

213663 

R 


LAC 

(200000 

6837 

11031 

p 

271326 

R 

GFND3 

XOR* 

GINDEX 

6839 

11032 

R 

071326 

R 


DAC* 

G INDEX 

6839 

110 3 3 

R 

741100 

A 


SPA 


6840 

11034 

P 

451325 

R 


ISZ 

GMQWDS 

6841 

1 1035 

R 

111436 

R 


JMS 

GSPACF 

6842 

1 1036 

R 

200017 

A 


LAC 

R 1 7 

68 4 3 

110 3 7 

R 

040015 

A 


DAC 

R 1 5 

6 8 44 

1 1040 

p 

231326 

R 


LAC* 

GINDEX 

6845 

110 41 

R. 

060017 

A 


DAC* 

R 1 7 

6846 

1 104? 

R 

740100 

A 


SMA 


6847 

11043 

R 

611046 

P 


JMP 

GFND3A 

6848 

11044 

R 

234105 

E 


LAC* 

GTMBIJF 

6849 

1 1045 

R 

060017 

A 


DAC* 

R 1 7 

6850 

11046 

R 

200207 

R 

GPND3A 

LAC 

VAL 

6851 

1 1047 

R 

553741 

R 


SAD 

(777777 


/RETRIEVE OFFSET 


/COP Y EVERYTHING UP OVER OLD 
/DOME 


/* 1 2 JAH1 1 * 

/*1 2 JAH1 1* 

/KILL? 

/YES, MO SHORTCUT 
/STRING OR NUMERIC? 
/STRING 

/NUMERIC, BACKUP PT 
/INSERT NEW NUMERIC VALUE 


/MAKE SURE BLOCK WRITTEN 


/NEW OFFSET 

/FUNCTION? 

/KILL 

/PUT 

/NEED AT LEAST 2 WORDS 

/DATA TYPE? 

/STRING 

/NUMERIC 

/ADD DATA TYPE SIT ( M OR S) TO SUB... 
/...AND STORE IN STACK 

/I MORE FOR POINTER 
/FIND SPACE 


/PUT IN SUBSCRIPT 
/*1 2JAH12* 

/ADD POINTER IF IT EXISTS 


/* 1 2 JAH1 2* 
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6852 

11050 

R 

61 1065 

R 


JMP 

GEND6 

6853 

11051 

R 

060017 

A 


D AC* 

R 1 7 

6854 

1 1052 

R 

200017 

A 

GFMD4 

LAC 

R 1 7 

6855 

11053 

R 

111412 

R 


JMS 

GOFF 

6856 

110 5 4 

R 

231326 

R 

GFMD4A 

LAC* 

G INDEX 

6857 

11055 

R 

652000 

A 


LMQ 


6858 
6 8 5 R 

11056 

R 

611311 

R 

/ 

JMp 

GEXIT 

6860 

11057 

R 

220133 

R 

GFND5 

LAC* 

8UFF2 

6861 

1 1060 

R 

653606 

A 


LMQ1CLAC 

i LLS+6 

6862 

11061 

R 

31 1325 

R 


ADD 

GNOWDS 

jr Q r 

ono) 

110 62 

R 

051325 

R 


DAC 

gngwds 

686 4 

1 1 063 

R 

213664 

p 


LAC 

(100000 

6865 

6866 

1 1 064 

R 

611031 

R 

/ 

JMP 

GFND3 

6867 

1 1065 

R 

340133 

R 

GFND6 

TAD 

BUFF2 

6868 

1 1 066 

P 

040016 

A 


DAC 

R16 

6868 

1 1067 

R 

220016 

A 


LAC* 

R 1 6 

6870 

11070 

R 

060017 

A 


DAC* 

R 1 7 

687 1 

11071 

R 

513702 

R 


AND 

(77 

6872 

1 1 072 

R 

740200 

A 


SZA 


687 3 

110 7 3 

R 

611067 

R 


JMP 

, - 4 

6874 

6875 

11074 

R 

611052 

R 

/ 

JMP 

GFND4 

68 7 6 

11075 

R 

743110 

A 

GFND7 

SPAIRTL 


687 7 

110 7 6 

R 

44001 7 

A 


ISZ 

R 1 7 

6978 

1 1 077 

R 

740502 

A 


SNLiSMAl 

CML 

6 9 7 8 

1110 0 

R 

6 7 0 0 0 4 

A 


CLOiCMO! 

GAS 

68 8 0 

11101 

R 

611311 

R 


JMP 

GEXIT 

6881 






.EJECT 



/STRING 

/NUMERIC 

/NEW OFFSET 

/RETURN WITH SUB IN M3 

/STRING IN BUFF2 

/UPDATE NO. OF WORDS NEEDED 
/S BIT 

/COPY STRING INTO BLOCK 

/LAST CHAR OF STRING ? 

/NO , SO GET ANOTHER WORD 
/YES 

/CHECK FOR POINTER, SET UP LINK 
/-0 IN HQ, CLEAR LINK 

/LEAVE WITH LINK, MO, R15, AND R17 SET 
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6 8 8 2 





/BUILD 

CHAIN, 

GO TO GFND2 

TO 

ADD DATA, 

688 3 





/ 





6884 

11102 

R 

040253 

R 

GUND2 

D AC 

GHEAD 



6885 

1110 3 

R 

140252 

R 


DZM 

GHI 



6886 

11104 

R 

111331 

R 


J MS 

GOISK 


/READ FREE LIST BLOCK 

6887 

11105 

R 

160704 

R 


DZM* 

QSKBFF 


/NO CONT BLOCK 

6888 

11106 

R 

200705 

R 


LAC 

G3WD2 



6889 

11107 

R 

111412 

R 


JMS 

GOFF 


/OFFSET 

6 8 90 

11110 

R 

451326 

R 


ISZ 

GINDEX 



6891 

11111 

R 

211326 

R 


LAC 

GINDEX 



6892 

11112 

R 

551321 

R 


SAD 

GDQNE 


/LAST SUB? 

689 B 

11113 

R 

611023 

R 


JMP 

GFND2 


/ X ES - GO STORE DATA 

6894 

11114 

R 

231326 

R 

GUMD3 

L&e* 

GINDEX 


/NO - ADD ANOTHER BLOCK 

6895 

11115 

R 

253662 

R 


XOR 

( 400000 



6896 

11116 

R 

060017 

A 


DAC* 

R 1 7 


/ADD SUB WITH P BIT 

6897 

11117 

R 

134103 

E 


JMS* 

GFREE 


/*12JAH12* NO - ADD ANOTHER BLK 

6898 

11120 

R 

051323 

R 


DAC 

gpoint 


/SAVE BLOCK ADDRESS OF NEWLY ALLOCATED BLOCK 

6899 

11121 

D 

060017 

A 


DAC* 

SI 7 


/POINTER TO NEW BLOCK 4 LATER 

6900 

11122 

R 

200017 

A 

GUMD4 

LAC 

R 1 7 



6 '90 1 

11123 

H 

111412 

R 


JiMS 

GOFF 



6902 

11 1 24 

R. 

200253 

R 


LAC 

GHEAD 



6 90 B 

11125 

R 

040255 

R 


DAC 

GHOOLD 


/SAVE HEAD ADDRESS 

6904 

11126 

R 

211323 

R 


LAC 

GPOINT 


/ADDRESS OF NEW BLOCK 

6905 

11127 

R 

611102 

R 


JMP 

GUNQ2 



6906 





/ 





6907 





/ 





6908 





/UNDEFINED subscript at later 

LEVEL. FIND SPACE FOR SUBSCRIPT AND 

6909 





/AND POINTER, 

GO ADD THEM. 



6910 





/ 





6911 

1 .1130 

P 

211327 

R 

GUND5 

LAC 

GLFMCT 



6912 

11131 

R 

745300 

A 


SPA i SNA 1 CLL 


/PUT? 

691 B 

11132 

R 

611304 

R 


JMP 

OXTBAD 


/NO 

6914 

1113 3 

R 

211326 

R 


LAC 

GINDEX 



6915 

11134 

P 

551321 

R 


SAD 

GDQNE 



6916 

11135 

R 

611023 

P 


JMP 

GFND2 


/DEFINE FINAL VALUE 

6917 

11136 

R 

213705 

R 


LAC 

(2 



6918 

11137 

R 

051325 

R 


DAC 

gnqwds 


n WDS FOR PTR 

6919 

11140 

R 

111436 

R 


J MS 

GSPACE 



6920 

11141 

R 

6HU4 

R 


JMP 

GUND3 


/GO ADD ANOTHER BLOCK 

6921 





/ 





6 Q 2? 





/ 





692 B 





/NO POINTER TO 

NEXT LEVEL 

(SUB 

IS THERE). COPY SUB AND DATA INTO 

6924 





/GTMBUF 

. ADD 

POINTER (TO 

NEW 

BLOCK). FIND SPACE AND COPY BACK. 

6925 





/ 





6926 

11142 

R 

253662 

R 

GUND6 

XOR 

( 400000 



6927 

1114 3 

R 

t) 7 4 1 0 5 

E 


DAC* 

GTMBUF 


/STORE SUB WITH P BIT 

69 ? « 

11144 

R 

211327 

R 


LAC 

GLFNCT 




11145 

P 

755301 

a 


SPA ! SNA !CLC ! CLL 


/PUT? 

6930 

11146 

R 

61 1 304 

R 


JMP 

GXTBAD 


/NO 

6931 

11147 

R 

340017 

A 


TAD 

R 1 7 


/COPY SUB AND VALUE INTO GTMBUF 

6932 

11150 

R 

051324 

R 


DAC 

GTEMP 



6933 

11151 

R 

214106 

E 


LAC 

GTMB.l 
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6934 

1 115? 

R 

040016 

A 


0 AC 

Rib 



6935 

1 1153 

R 

234105 

E 


LAC* 

GTMBlJF 



6936 

11154 

R 

742010 

A 


RTL 




6937 

11155 

R 

744400 

A 


SNL1CLL 




693R 

11156 

p 

611217 

R 


JMP 

GUND9 

/STRING 


6939 

111 57 

R 

220017 

A 


LAC* 

R 1 7 

/NUMERIC 


6940 

11160 

R 

060016 

A 


DAC* 

R16 



6941 

11161 

R 

2141.05 

E 

GUM 07 

LAC 

GTM8UF 



694? 

11162 

R 

740031 

A 


TC A 




6943 

.1116 3 

R 

300016 

A 


ADD 

R 1 6 



6944 

1116 4 

R 

051325 

R 


DAC 

GNOWDS 

/SPACE NEEDED 


6945 

1 1165 

R 

211324 

R 


LAC 

GTEMp 

/COPY REST OF BLOCK OVER DELETED 

DATA 

6946 

11166 

R 

040016 

A 


DAC 

R16 



6947 

11167 

R 

200017 

A 


LAC 

R 1 7 



6949 

11170 

R 

551322 

R 


SAD 

GEND 



6944 

11171 

R 

611175 

R 


JMP 

GUND8 



6950 

11172 

R 

220017 

A 


LAC* 

R1 7 



6951 

1117 3 

R 

060016 

A 


DAC* 

R16 



695 2 

11174 

R 

611167 

R 


JMP 

.-5 



6953 





/ 





6954 

11175 

P 

200016 

A 

GUN 08 

LAC 

R 1 6 

/OFFSET 


6955 

1117 6 

R 

1 11412 

R 


JMS 

GOFF 



6956 

11177 

R 

111436 

R 


JMS 

GSPACE 

/FIND BLOCK WITH SPACE IN IT 


6957 

112 0 0 

Q 

134103 

E 


JMS* 

GFREE 

/ * 1 2JAH12* & A NEW BLK FOR LOWER 

LEVEL 

6958 

11201 

P 

051323 

R 


DAC 

gpoimt 

/SAVE BLOCK ADDRESS 


6959 

1 1202 

R 

074106 

e 

W 


DAC* 

GTMB , 1 

/ POINTER IN gtmbuf IMAGE 


6960 

1 1203 

R 

211325 

R 


LAC 

GNOWDS 



6 961 

1 1204 

R 

740001 

a 


CM A 




6962 

11205 

R 

051324 

R 


DAC 

GTEMP 



696 3 

11206 

R 

451324 

R 


ISZ 

GTEMP 

/WORD COUNTER 


6964 

11207 

R 

777777 

A 


L A to 

-1 



6965 

11210 

R 

354105 

E 


TAD 

GTMQIIF 



6966 

11211 

R 

040016 

A 


DAC 

HI 6 



6 96 7 

11212 

R 

220016 

A 


LAC* 

R 1 6 

/COPY INTO BLOCK (NOW HAS POINTER) 

6968 

11213 

R 

0 6 0 0 1 7 

A 


DAC* 

R 1 7 



6969 

11214 

R 

451324 

R 


ISZ 

GTEMP 



6970 

11215 

R 

611212 

R 


JMP 

.-3 



6971 

11216 

R 

611122 

R 


JMP 

GUND4 

/GO ADD LEVELS AS NECESSARY 


6972 





/ 





6973 

11217 

R 

220017 

A 

GUND9 

LAC* 

R 1 7 

/COPY STRING INTO GTM9UFF 


6974 

11220 

R 

060016 

A 


DAC* 

R16 



6975 

1 1 221 

R 

513702 

R 


AND 

(77 



6976 

11222 

R 

740200 

A 


SZA 




6977 

1 1223 

R 

611217 

R 


JMP 

.-4 



6978 

1 1224 

R 

611161 

Q 


JMP 

GUND7 



6979 
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6980 





/KILL 

STUFF 



6981 





/ 1) 

NO LOWER 

LEVEL - QUIT. 


6982 





/ 2) 

LOWER LEVEL JOINED - DE 

CREMENT JOIN COUNTER, BUT DON'T ADD 

6983 





/ 

TO GARBAGE TREE. 


6984 





/ 3) 

LOWER LEVEL NOT JOINED 

- PUT KILLED TREE AT TOP OF GARBAGE 

6985 





/ 

TREE. 



6986 





/ 




6987 

1 1225 

R 

574105 

E 

GTHREU 

SAD* 

GTMBIJF 

/MUST ARRIVE WITH 0 IN AC 

6993 

112 26 

P 

611 305 

R 

- 

JMP 

GEXITO 

/O' MEANS NO POINTER - KILL IS DONE 

6989 

11227 

R 

234105 

£ 


LAC* 

GTMBUF 


6990 

1 1.230 

R 

043744 

R 


DAC 

ST0R1 

/SAVE POINTER 

6991 

112 3 7 

R 

214100 

E 


LAC 

G BUFFJ. 


6992 

1 12 32 

R 

740030 

A 


I AC 



699 3 

11233 

P 

044340 

R 


DAC 

PLACE 

/SECOND WORD OF BUFFER 

6994 

3.1234 

R 

214100 

£ 


LAC 

G8UFF1 


6995 

3 1235 

R 

1 34060 

E 


JMS* 

DSKRDE 

/*12JAH12* 

6996 

11236 

R 

200247 

R 


LAC 

gumit 


6997 

11237 

R 

203744 

R 


LAC 

ST0R1 

/READ POINT E RED BLOCK 

6998 

11240 

R 

224340 

R 


LAC* 

PLACE 

/SECOND WORD 

6999 

11241 

R 

513646 

R 


AND 

(777700 

/CHECK POINTER 

7 000 

11242 

R 

745300 

A 


SPA 'SNA 

! CLL 


7001 

1 1243 

9 

611 262 

R 


JMP 

GTHR3 

/CAN KILL IT 

7002 

11244 

9 

224340 

R 


LAC* 

PLACE 

/JOIN - DON'T PUT ON GARBAGE TREE 

7003 

11245 

R 

353646 

R 


TAD 

(777700 


7004 

1 1246 

R 

064340 

R 


DAC* 

PLACE 

/DECREMENT JOIN COUNTER 

7005 

11247 

R 

214100 

E 


LAC 

G3UFF1 


7006 

1 1250 

R 

134061 

E 


JMS* 

DSKWRT 

/* 1 2 JAH1 2* WRITE BACK 3LK 

700 7 

11251 

R 

200247 

R 


LAC 

GUN IT 


7003 

1 1 252 

R 

203744 

R 


LAC 

ST0R1 


7009 

11253 

R 

611305 

R 


JMP 

GEXITO 

/AND LEAVE 

7010 





/ 




7011 

1 1 254 

R 

234100 

E 

GTHR2 

LAC* 

GRUFF 1 


7012 

1 1255 

R 

043744 

R 


DAC 

STQR1 

/GET NEXT BLOCK 

701 3 

11256 

R 

214100 

E 


LAC 

GBUFF1 


7014 

11257 

R 

134060 

E 


JMS* 

DSKRDE 

/*12JAH12* 

7015 

11260 

R 

200247 

R 


LAC 

GUMIT 


7016 

11261 

R 

203744 

R 


LAC 

STORl 


7017 

3 1262 

P 

214101 

E 

GTHR3 

LAC 

GCHATN 

/ANY GARBAGE? 

7018 

1 1 263 

R 

340247 

R 


TAD 

gunit 


7019 

1 1 264 

P 

051330 

R 


DAC 

GCH 

/GARB CHAIN FOR THIS SUPER UNIT 

7020 

11265 

R 

231330 

R 


LAC* 

GCR 


7021 

11266 

R 

741200 

A 


SNA 



702? 

1 1 267 

R 

611301 

R 


JMP 

GTHR4 

/NO ~ JUST ADD CHAIN TO GCHAIN 

7023 

11270 

R 

234100 

E 


LAC* 

GBUFF1 

/CONT BLOCK? 

7024 

11271 

p 

744200 

A 


SZAiCLL 



7025 

112 7 2 

R 

611254 

R 


JMP 

G T H R 2 

/YES 

7026 

11273 

R 

231330 

P 


LAC* 

GCH 


7 02 7 

11274 

p 

074100 

E 


DAC* 

G3UFF1 

/ADD GARBAGE TREE TO END 

7028 

1 3 275 

P 

214100 

E 


LAC 

GBUFF1 


7029 

1 1 276 

R 

134061 

£ 


JMS* 

DSKWRT 

/* 1 2 JAH 12* 

7030 

1 1 277 

R 

200247 

R 


LAC 

GUNIT 


7031 

1 3 300 

R 

203744 

R 


LAC 

STORl 

/WRITE OUT WITH MEW CHAIN POINTER 
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7032 

1. 1 301 

Q 

234105 

E 

GTHR4 

LAC* 

GTMftlJF 

/PUT ORIGINAL POINTER 

7033 

11 302 

P 

071330 

R 


DAC* 

GCH 

/...INTO GARBAGE POINTER 

7034 

113 0 3 

R 

134057 

e 


JMS* 

DMPOLD 

/*12JAH12* 

7035 

113 0 4 

R 

650000 

A 

GXTBAD 

CLQ 


/UNSUCCESSFUL 'GETS’ COME HERE 

7036 

1 1305 

R 

200272 

R 

GEXlTQ 

LAC 

global 

/UNSU8SCRIPTED KILL? 

70 37 

11306 

R 

513657 

R 


AND 

C 7 7 7 7 7 

/ * 1 2 JAH 1 2* 

7038 

1 1 307 

R 

554010 

R 


SAD 

(GKILt.4 


7039 

11310 

R 

610514 

R 


JMP 

BACK5B 

/YES, GO KILL NEXT NODE 

7040 

11311 

R 

211327 

R 

GEXIT 

LAC 

GLFNCT 

/DON'T ALLOW SWAP IF IN JOIN 

7041 

11312 

R 

553705 

R 


SAD 

C 2 

/JOIN HAS MORE TO DO 

7042 

11313 

R 

620272 

R 


JMP* 

GLOBAL 


7043 

11314 

R 

140577 

R 


DZM 

DSKACT 

/FREE DISK. 

7044 

11315 

R 

440652 

p 


ISZ 

SWAPSW 

/TIME SLICE UP? 

7045 

11316 

R 

620272 

R 


JMP* 

GLOBAL 

/NQ 

7046 

11317 

R 

101533 

R 


JMS 

HANG 

/YES, LET OTHERS RUN 

7047 

11320 

R 

620272 

R 


JMP* 

GLOBAL 


7048 





/ 




7049 

11321 

R 

000000 

A 

GDONE 

0 



7050 

11322 

R 

000000 

A 

GEMD 

0 



7051 

1 1323 

R 

000000 

A 

GPOINT 

0 



705? 

1 1 324 

R 

oooooo 

A 

GTEMP 

0 



7053 

1 1 325 

R 

000000 

A 

GNOWDS 

0 



7054 

11326 

R 

oooooo 

A 

GINDEX 

0 



7055 

11327 

t* 

oooooo 

A 

GLFNCT 

0 


/FUNCTION 

7056 

11330 

R 

oooooo 

A 

GCH 

0 



7057 
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7058 





/SUBROUTINES 

FOR GLOBALS 


7059 





/ 




7060 





/DISK READ SUBROUTINE FOR 

GLOBALS. CALL WITH DISK ADDRESS IN AC. 

7061 





/WRITES 

OLD 

BUFFER IF NEC. 

BEFORE READING 

706? 





/ 




7 06 8 

11331 

q 

000000 

A 

GDISK 

0 



7064 

11332 

R 

040653 

R 


DAC 

N B P N T 


7065 

11333 

R 

641002 

A 


LACQ 



7066 

1 1 334 

K 

051412 

R 


DAC 

GOFF 

/SAVE MQ 

7067 

1 1335 

R 

777775 

A 


LAW 

-3 

/TRY 3 TIMES ON CHKPNT ERRORS BEFORE GIVING UP 

7068 

113 36 

R 

051411 

R 


DAC 

CHKCNT 


7069 

11337 

R 

334102 

E 

GDISK4 

JMS* 

GET N E W 

/♦12JAH12* GET NEW BLK 

7070 

11340 

R 

220705 

o 


LAC* 

G9WD2 

/ 2 N D WORD IN SLOCK 

7071 

11341 

R 

513646 

R 


AND 

(777700 

/CHECK POINTER 

7072 

11342 

R 

741200 

A 


SNA 



7073 

11343 

R 

611370 

R 


JMP 

GDISK2 

/NO JOIN COUNTER OR CHECK POINTER 

7074 

1 1 344 

R 

740100 

A 


SNA 



7075 

1 1345 

R 

611405 

R 


JMp 

GDISK. 3 

/POS MEANS JOIN COUNTER 

7076 

1 1 346 

R 

640503 

A 


LRS 

3 

/NEG MEANS CHECK POINTER 

7077 

11347 

R 

074103 

E 


DAC* 

GFREE 

/*12JAH12* 

7078 

113 5 0 

R 

200253 

R 


LAC 

GHEAd 


7 07 9 

11351 

R 

540171 

R 


SAD 

obpnt 


7080 

11352 

R 

200255 

R 


LAC 

GHDOLD 


7081 

1 1 353 

R 

274103 

F. 


XOR* 

GFREE 

/♦12JAH12* COMPARE IT TO PROPER HEAD BLK ADDR 

708? 

1 1354 

R 

514012 

R 


AND 

( 37770 

/LEFT 11 BITS OF HEAD 3-LOCK ADDRESS 

7 0 8 3 

11355 

R 

741200 

A 


SNA 


/0 IF PERFECT MATCH 

7084 

1 1 356 

R 

611364 

R 


JMP 

GDISK1 

/OK 

7085 

11357 

R 

440645 

R 


ISZ 

OKCHK 

/INCREMENT CHKPNT COUNTER 

7086 

1 1 360 

R 

740000 

A 


NOP 



7087 

1.1361 

R 

45141 1 

R 


ISZ 

CHKCNT 


7089 

11362 

9 

611337 

p 


■J M P 

G0ISK4 

/TRY AGAIN 

7089 

11363 

R 

000024 

A 


ERR24 

/GIVE UP, " C H P N T " ERROR 

7090 

11364 

R 

21141? 

p 

GDISM 

LAC 

GOFF 

/RESTORE MQ 

7091 

1 1 365 

R 

652000 

A 


LMQ 



7092 

11366 

R 

111426 

R 


JMS 

GLSET 


7093 

11367 

R 

631331 

p 


JMP* 

GDISK 


7094 





/ 




7095 

1 1370 

R 

211 327 

R 

GDISK2 

LAC 

GLFMCT 

/BEFORE WE UPDATE CHECKPOINT, MAKE SURE 

7096 

11371 

R 

741200 

A 


SNA 


/WE’RE ALLOWED TQ--IS THIS A "WRITE” FUNCTION? 

7097 

1 1372 

R 

611364 

R 


JMP 

GDISK1 

/NOT A "WRITER-MAY NOT HAVE GLOBAL OPEN SO JUST GO AWAY 

7098 

U 3 7 3 

R 

200253 

R 


LAC 

GHEAD 

/YES, A "WRITE", SO WE CAN SAFELY UPDATE IT. 

7099 

11374 

R 

540171 

R 


SAD 

OBPNT 

/WILL BE EQUAL IF FIRST BLOCK OF LEVEL 

7100 

1 1 375 

R 

200255 

R 


LAC 

GHDOLL) 

/GET CORRECT CHECK POINTER VALUE 

7101 

11376 

R 

640603 

A 


LLS 

3 


710 2 

1 1377 

R 

514006 

R 


AND 

(377700 


7103 

1 1 400 

R 

253662 

R 


XOR 

( 400000 

/LINE UP, MASK, OR IN C:.P. BIT 

7104 

11401 

R 

260705 

R 


XOR* 

GBwD? 

/OR IN OFFSET 

7 J 06 

1 1402 

R 

060705 

R 


DAC* 

GSW D2 

/STORE 

7106 

11403 

R 

440172 

R 


ISZ 

WRTSW 

/ALWAYS WRITE IF NEW BLK ADDED TO LEVEL 

7107 

t 1 404 

P 

611364 

R 


JMP 

GDISK1 


7108 





/ 




7109 

1 1 405 

R 

211327 

R 

GQISK3 

LAC 

GLFNCT 

/JOINED BLOCK ENCOUNTERED 
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7110 

7111 
711? 

3 14 06 
11407 

p 553705 
R 000013 

R 

A 

/ 

SAD 
ERR 1 3 

C2 

/’’GLOBE" - ATTEMPTED TO OQ ILLEGAL JOIN 

7113 

7114 

11410 

R 611364 

R 

/ 

JMP 

GDISK1 

/OK 

7115 

7115 

11413 

R 000000 

A 

CBKCNT 

0 

, EJECT 


/TRY 3 TIMES ON CHKPNT ERRORS 
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7117 





/GOFF 

CALCULATES 

BLOCK OFFSET, 

RETURNS WITH R17 POINTING. TO 



7118 





/LAST 

USED WORD 

IN BLOCK 




7119 





/ 






7120 

11412 

Q 

000000 

A 

GOFF 

0 





7121 

11413 

R 

051322 

R 


DAC 

GEND 




7122 

11414 

R 

040017 

A 


DAC 

R. 1 7 




7123 

11415 

p 

200704 

R 


LAC 

DSKBFF 




7124 

1 1 416 

R 

744001 

A 


CMA1CLL 





7125 

11417 

R 

311322 

R 


ADD 

GEND 




7126 

1 1 420 

R 

040172 

R 


0 AC 

WRTSW 

/WRTSW T SET MEANS THERE'S SOMETHING 

NEW 

7127 





/ 






7128 

11421 

R 

220705 

R 


LAC * 

GBWD? 




7129 

1 1 422 

,R 

513646 

R 


AND 

(777700 

/OFFSET WILL EQUAL 1 IF NEW 

GLOBAL 


7130 

1 1 423 

R 

300172 

R 


ADD 

WRTSW 

/WRTSWT IS OFFSET 



7131 

11424 

R 

060705 

R 


DAC* 

G8WD2 




71 32 

11425 

R 

631412 

R 


JMP* 

GOFF 




7133 





/ 






7134 





/ 






71 35 





/GLser 

INITIALIZES R J 7 AND G £ N D 




7136 





/ 






7137 

1 1426 

p 

000000 

A 

GLSFT 

0 





7138 

1 1 427 

R 

200705 

R 


LAC 

GBWD2 

/PLACE GBWD2 POINTER IN R17 



7139 

114 30 

P 

040017 

A 


DAC 

R 1 7 




7140 

11431 

R 

220705 

D 


LAC* 

GBWD2 

/GET SECOND BUFFER WORD AND 

EXTRACT 

THE OFFSET 

7141 

1 1 43? 

R. 

513702 

R 


AND 

(77 




7142 

11433 

R 

300704 

R 


ADD 

DSKBFF 

/ADD BEGINNING OF BUFFER TO 

OFFSET 


7143 

11434 

R 

051322 

R 


DAC 

GEND 

/PLACE CURRENT END OF VALID 

BUFFER 

IN GEND 

7144 

114 35 

R 

b31 426 

R 


JMP* 

GLSET 




7145 






.EJECT 







PAGE 

7146 

7147 

7148 

7149 

7150 

7151 

7152 

7153 

7154 
715 5 

7156 

7157 

7158 

7159 

7160 

7161 
716? 

7163 

7164 

7165 

7166 

7167 

7168 

7169 

7170 

7171 
717? 
717 3 

7174 

7175 

7176 

7177 

7178 

7179 

7180 
71.91 
718? 
7183 

7194 

7195 

7186 

7187 


183 mumps 100 GLOBAL VARIABLE ROUTINES 

/GSPACE FINOS A BLOCK WITH ENOUGH ROOM FOR GNOWDS WORDS AS FOLLOWS : 
/ 1) CHECKS PRESENT BLOCK 
/ 2) CHECKS PREVIOUS BLOCKS (GHI) 

/ 3) SEARCHES FORWARD ALONG CHAIN 

/ 41 GETS BLOCK FROM FREE LIST 

/ READS IN SELECTED BLOCK 
/ 


11436 

R 

0 0 0 0 0 0 

A 

GSPACE 

0 



1 1437 

ft 

220705 

ft 

GSPAC1 

LAC * 

G8wD2 

/*12JAH12* IS THERE ROOM? 

11440 

R 

513702 

R 


AND 

(77 

/MASK OFFSET 

11441 

R 

311325 

R 


ADD 

GNQWDS 


1 1 442 

P 

353646 

R 


TAD 

(777700 

/ 7 7 FITS 

11443 

R 

745100 

A 


SPAJCLL 


/FITS IF NEG 

11444 

ft 

631436 

R 


JMP* 

GSPACE 

/ROOM IN CURRENT BLK 

11445 

K 

200252 

R 


LAC 

GHI 

/NO OF AVAIL LQC IN LARGEST PREVIOUS 

11446 

ft 

741200 

A 


SNA 


/IS THERE A PREVIOUS BLOCK 

1 1 447 

R 

611461 

R 


JMP 

GSPAC4 

/NO 

11450 

ft 

311325 

R 


ADD 

GNQWDS 


11451 

R 

353646 

R 


TAD 

(777700 

/II FITS 

1 1452 

R 

740100 

A 


SM A 



11459 

R 

611461 

R 


JMP 

GSPAC4 

/NO ROOM 

1 1 454 

R 

200251 

R 


LAC 

GBLKHI 


11455 

R 

111331 

e> 


JMS 

GDISK 

/READ 

11456 

R 

040017 

e. 


DAC 

R17 


11457 

R 

140252 

ft 


DZM 

GHI 


t 1 460 

R 

631436 

ft 

/ 

GSPAC4 

JMP* 

GSPACE 


11461 

R 

220704 

R 

LAC* 

QSKBFF 

/IS THERE CO NT BLK 

1 1 462 

ft 

741200 

A 


SNA 



1 1 463 

R 

611467 

P 


JMP 

GSPAC6 

/NO 

1 1 464 

R 

111331 

R 


JMS 

GDISK 

/READ 

1 1 465 

R 

040017 

A 


DAC 

Rt 7 


1 1 466 

ft 

61 1437 

R 

/ 

GSPAC6 

JMP 

GSPAC1 

/*1 2JAH12* 

11467 

R 

134103 

E 

JMS* 

GFREE 

/*12JAH12* GET BLK FFROM FREE LIST 

114 7 0 

R 

060704 

R 


DAC* 

DSKBFF 

/COMT BLK 

11471 

R 

040172 

R 


DAC 

WRTSW 


11472 

ft 

111331 

ft 


JMS 

GDISK 

/READ 

11473 

R 

160704 

R 


QZM* 

0 S K B F F 


1 1 474 

R 

200705 

R 


LAC 

GBWD2 

/SET BEG ADD OF BUFF 

11475 

R 

111412 

R 


JMS 

GOFF 


11476 

R 

631436 

R 


JMP* 

GSPACE 
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718 8 
7189 





.TITLE COMMAND PROCESS' 
/PROCESS THE ASK COMMAND 

7190 

1 1477 

R 

107107 

R 

ASK 

CALL SETln 

7191 

11500 

R 

744400 

A 


SNLiCLL 

7192 

7193 

11501 

R 

000003 

A 

/ASK A 

ERR3 

NUMERIC VARIABLE 

7194 

1 1 502 

R 

1 06o7 3 

R 


CALL FORMAT 

7195 

11503 

R 

741400 

A 


SZL 

7196 

11504 

P 

000003 

A 


ERR 3 

7197 

.1.1505 

R 

105304 

R 


CALL ASSEM 

7198 

1 1506 

R 

220144 

R 


LAC* W V A R 

7199 

1 1 507 

R 

740031 

A. 


TC A 

7200 

11510 

P 

060154 

R 


DAC* PRTEND 

7 201 

1 1511 

R 

213730 

R 


LAC CXCI1 

7202 

11512 

P 

040221 

R 


DAC I p LACE 

7203 

11513 

R 

200133 

R 


LAC 8UFF2 

7204 

11514 

R 

040220 

R 


DAC IPQINT 

7205 

11515 

R 

103325 

R 


CALL PACKEM 

7206 

7207 

11516 

ft 

611513 

R 

/##### 

JMP . - 3 

SAVE ON STACK #«### 

7 20 8 

11517 

P 

777776 

A 


LAW -2 

7209 

1 1 520 

R 

105040 

R 


CALL SAVE 

7210 

11521 

R 

200222 

R 


LAC OPOINT 

7211 

7212 

11522 

ft 

200223 

R 

/*#### 

LAC OP LACE 

##### 

7213 

11523 

R 

213732 

R 


LAC CXC01 

7214 

11524 

p 

040223 

R 


DAC QPLACE 

7215 

11525 

ft 

2001 33 

R 


LAC BUFF2 

7216 

11526 

R 

040222 

R 


DAC OPOINT 

7217 

1 1527 

R 

744000 

A 


CLL 

7218 

7219 

11530 

R 

107163 

R 

/##### 

CALL EVAL 

POPSTACK ##### 

7220 

115 31 

R 

777776 

A 


LAW -2 

7221 

1 1532 

R 

1 05103 

R 


CALL UNSAVE 

7222 

115 3 3 

R 

040223 

R 


DAC QPLACE 

7223 

7224 

1 1534 

P 

040222 

R 

/*#### 

DAC OPOINT 

# # # # # 

7225 

7226 

11535 

R 

606770 

R 


JMP FORM? 

.EJECT 


/ASK ALL ILLEGAL , SYNTAX ERROR 

/HANDLE FORMAT CONT CHARS 

/' PREFIX NOT ALLOWED 

/ ASSEM VAR NAME 

/SETUP WATCHDOG COUNTDOWN 

/M2JAH14* CHAR POS = 

/* t 2 JAH1 4* MIDDLE 
/ A D D R OF STR AC 

/*1 2JAH14* 

/* 1 2 JAH 1 4* CHAR POS 

/* 1 2 JAH1 4* CHAR POS = 

/* 1 2 JAH1 4* MIDDLE 

/NUMERIC ONLY 

/*12JAH14* 

/* 1 2 JAH1 4* CHAR POS 
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/PROCESS THE BREAK COMMAND 

7228 





/## # ## 

SAVE ON 

STACK ##### 

7229 

11536 

R 

777772 

A. 

BREAK 

LAW 

-6 

7230 

11537 

R 

105040 

R 


CALL 

SAVE 

7231 

115 40 

R 

203535 

R 


LAC 

DISPAT 

7232 

11541 

R 

200203 

R 


LAC 

FORT, ST 

72 33 

1 1542 

R 

200206 

R 


LAC 

LOC 

7234 

11543 

R 

220145 

R 


LAC * 

LVAR 

7235 

1 1544 

R 

200222 

R 


LAC 

0 POINT 

7236 

11545 

R 

200223 

R 


LAC 

□PLACE 

723 7 





/##### 


n # # # # 

7238 

11546 

R 

21 1552 

R 


LAC 

BREAK 1 

7 2 39 

1 1547 

p 

040020 

A 


DAC 

R20 

7240 

1 1550 

R 

634071 

E 


JiMP* 

ERROR2 

7241 

31551 

R 

000002 

A 


ERR2 


7242 

1 1 552 

R 

011552 

R 

BREAK1 

. 


7243 






.EJECT 



/* 1 2 JAH1 4* 


/*12JAH14* CHAR POS 


/* 1 2 J AH1 2* 
/"BREAK” 
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7244 

7245 

7246 

1 1 553 

R 

744400 

A 

7247 

3 1554 

R 

000004 

A 

7248 

1 1 555 

R 

744002 

A 

7249 

1 1 556 

R 

107163 

R 

7250 

7251 

1 1557 

R 

777772 

A 

7252 

1 1 560 

R 

105040 

R 

7253 

1 1561 

R 

203535 

R 

7254 

1 156? 

R 

200203 

R 

7255 

11563 

R 

200206 

R 

7256 

1 1 564 

R 

220145 

R 

7257 

1156 5 

P 

200222 

R 

7258 

7259 

11566 

R 

200223 

R 

7260 

11567 

R. 

200207 

R 

7261 

1 1570 

R 

553741 

R 

7262 

1 1571 

R 

611611 

R 

7 26 3 

1 1 572 

R 

653323 

A 


11573 

R 

000144 

A 

7264 

115 7 4 

R 

741200 

A 

7265 

1 1575 

R 

611624 

R 

7266 

1 1 576 

R 

105123 

R 

7267 

11577 

R 

060145 

R 

7268 

1 1 600 

R 

200016 

A 

7269 

11601 

R 

040206 

R 

7270 

1 1 60? 

9 

740030 

A 

727 1 

1 1603 

R 

040222 

R 

7272 

1 1604 

R 

213732 

R 

727 3 

1 1605 

R 

040223 

R 

7274 

11506 

R 

103535 

R 

7275 

1 1607 

R 

740000 

A 

7276 

7277 

7278 

11610 

R 

611662 

R 

7279 

7280 

11611 

R 

200133 

p 

7281 

1161? 

R 

040222 

R 

7282 

11613 

p 

213732 

R 

7283 

11614 

p 

040223 

R 

7284 

11615 

R 

104660 

R 

7285 

11616 

H 

103724 

R 

7286 

11617 

R 

000003 

A 

7287 

11620 

R 

611622 

R 

7 28 8 
7289 

1 3 6 2 1 

R 

000003 

A 


/DO - PROCESS THE DO COMMAND 
/ 

DO SNL1CLL 

ERR 4 

DOO STL 

CALL £ V AL 

/#*### SAVE ON STACK ##### 

Li A »6 

CALL SAVE 

LAC DISPAT 

LAC PORT ST 

LAC LOC 

LAC* LVAR 

LAC QPOIMT 

LAC OPLACE 

/##### ###£ # 
LAC VAL 

SAD (777777 

JMP DOSTR 

I D I V ; 144 

SNA 

JMP 001 

CALL STEP 

DAC* LVAR 

LAC HI 6 

0 AC LOC 

I AC 

DAC OPOINT 

LAC (XC01 

DAC OPLACE 

CALL OISPAT 

NOP 

JMP DO 3 

/ 

/DO STRING 
/ 

DOSTR LAC 3UFF2 

DAC QPOIMT 

LAC (XC01 

DAC OPLACE 

CALL. QCHARI 

CALL SYNTAX 

ERR3 

JMP D0STR2 

ERR3 

.EJECT 


/AMY OPERAND(S)? 

/MO, " C M M N D " 

/* 1 2 JAH1 2* YES, SET FOR MUM OR STR RESULT AND 
/GO EVALUATE OPERAND. 

/*12JAH14* 

/SAVE 5 tfORDS 


/*1.2JAH14* CHAR POS 


/DID OPERAND EVAL AS STR? 

/YES, GO HANDLE " DO STR" 

/NO, 

/FRACT PORTION (STEP NO) IN AC. 

/DO A PART 

/DO A STEP - FIND STEP NO HELD IN VAL. 
/MAKE REF STEP "CURRENT" STEP 

/UPDATE PTR INTO STEP SUFFER . 

/SETUP PTR TO GET REST OF STEP. 
/♦12JAH14* CHAR POS = 

/* 1 2 JAH1 4* MIDDLE 
/GO TO CMND DISPATCH. 

/QUIT RETURN 

/NORMAL RET (STEP COMPLETED) 


/*1 2 JAH) 4* CHAR POS = 
/* 1 2 JAH1 4* MIDDLE 


/A- "SYNTX" 
/M 

/P- "SYNTX" 
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/DO STEP 


7291 





/ 



7292 

116 2 2 

R 

104340 

R 

D0STR2 

CALL 

PLACE 

7 29 3 

1 1623 

R 

611662 

R 


JMP 

00 3 

7294 





/ 



7295 





/DO OR 

GOTO A 

PART 

7296 





/ 



7297 

1 1 624 

R 

105151 

R 

D01 

CALL 

PART 

7298 

11625 

k 

200016 

A 

D01.1 

LAC 

R 1 6 

7299 

11626 

R 

040206 

R 


DAC 

LOC 

7300 

J 1627 

R 

740030 

A 


I AC 


7301 

11630 

R 

040222 

R 


DAC 

□POINT 

7 30? 

116 31 

R 

213732 

R 


LAC 

(XCOl 

7 303 

1 1632 

R 

040223 

R 


DAC 

□PLACE 

7 304 

11633 

R 

220206 

9 


LAC * 

LOC 

7305 

11634 

R 

060145 

R 


DAC* 

LVAR 

7306 

1 1635 

p 

103535 

Q 

D02 

CALL 

DISPAT 

7 30 7 

1 1636 

R 

611662 

R 


JMP 

DO 3 

7 308 

11637 

R 

220145 

R 


LAC* 

LVAR 

7309 

11640 

R 

653323 

A 


I D I v ; 

144 


t 1 641 

R 

000144 

A 




7310 

1 1642 

R 

641002 

A 


LACQ 


731 1 

1164 3 

R 

040207 

R 


DAC 

VAL 

7312 

1 1644 

R 

200206 

R 


LAC 

LOC 

731 3 

11645 

R 

040016 

A 


DAC 

R16 

7314 

1 1646 

R 

220016 

A 


LAC* 

R16 

7315 

1 1 547 

R 

653606 

A 


LMQ1CLAC1LLS+6 

7316 

.1 1650 

R 

300016 

A 


ADD 

R 1 6 

7317 

11651 

R 

540167 

R 


SAD 

END 

7318 

11652 

R 

611662 

R 


JMP 

DO 3 

7319 

11653 

R 

040016 

A 


DAC 

Rib 

7320 

11654 

R 

220016 

A 


LAC* 

R16 

7321 

1 1 655 

R 

653323 

A 


I D I V ; 

144 


1 1 656 

R 

000144 

A 




7322 

11657 

R 

641.002 

A 


LACQ 


7323 

11660 

R 

540207 

R 


SAD 

VAL 

7324 

11661 

R 

611625 

R 


JMP 

D01.1 

7325 





/ft###* 

POPSTACK 

7326 

1 1 662 

R 

777772 

A 

D03 

LAW 

-6 

7327 

11663 

R 

105103 

P 


CALL 

UN SAVE 

7328 

11664 

R 

040223 

R 


DAC 

OPLACE 

7329 

1 1665 

R 

040222 

R 


DAC 

□POINT 

7 330 

1 1666 

P 

060145 

R 


DAC* 

LVAR 

7 33 1 

1 1667 

R 

040206 

R 


OAC 

LOC 

7332 

11670 

R 

040203 

R 


DAC 

FORTST 

7 3 33 

116 71 

R 

043535 

R 


DAC 

DISPAT 

7334 





/##### 



7 335 

116 7 2 

R 

105201 

R 


CALL 

CHECK 

7336 

1167 3 

R 

104645 

R 


CALL 

□CHAR 

7 3 37 

1 1 674 

R 

553767 

R 


SAD 

(54 

7339 

1 1675 

R 

611555 

P 


JMP 

000 

7339 

1 1 676 

R 

603574 

R 


JMP 

DTA8LE+ 1 


/♦12JAH14* 


/*12JAH12* 


/* 1 2 JAH1 4* CHAR POS = 
/*12JAH14* MIDDLE 


/GOTO A STEP 
/QUIT RETURN 


/M2JAH12* 

##### 

/* 1 2 JAH1 4* 

/* 1 2 JAH1 4* CHAR POS 


* n u * * 

/GET A CHAR. 

/, /IS ir A 

/*12JAH12* YES, DO NEXT OPERAND 

/NO MORE OPERANDS , GO TO COMMON RET PROC. 



PAGE 198 

MUMPS 100 

COMMA .N D PROCESSORS 

7340 


.EJECT 



PAGE 189 


M U M P S 1 0 0 


OMMANO processors 


7341 

7342 

11677 

R 

745400 

A 

7 34 3 

11700 

ft 

611710 

R 

7 344 

117 01 

R 

220145 

R 

7345 

11702 

R 

744202 

A 

7346 

1 1703 

R 

612362 

R 

7 347 

1 1704 

R 

200134 

R 

7348 

1 1705 

R 

740030 

A 

7349 

1 1706 

R 

103744 

R 

7350 

1 1 707 

R 

603573 

R 

7351 

7352 

11710 

R 

107163 

R 

7353 

11711 

R. 

745100 

A 

7354 

11712 

R 

000005 

A 

7 355 

11713 

R 

653323 

A 


11714 

R 

000144 

A 

7356 

11715 

P 

741200 

A 

7357 

.11716 

R 

611750 

R 

7358 

11717 

P. 

105123 

R 

7359 

1 1720 

R 

777776 

A 

7360 

11721 

R 

300016 

A 

7361 

1 1722 

R 

040014 

A 

7362 

11723 

R 

220016 

A 

7363 

1 1724 

R 

653606 

A 

7364 

1 1725 

R 

140652 

R 

7365 

11726 

R 

300016 

A 

7366 

1 1727 

R 

040015 

A 

7367 

1 17 30 

R 

540167 

R 

7368 

11731 

R 

611736 

R 

7369 

11732 

R 

220015 

A 

7370 

11733 

R 

060014 

A 

7 371 

11734 

R 

200015 

A 

7372 

1 1735 

R 

611730 

R 

7 37 3 

11736 

R 

200014 

A 

7374 

117 3 7 

R 

103744 

R 

7 3 75 

1 1740 

R 

440652 

R 

7376 

11741 

R 

741000 

A 

7 377 

11742 

R 

101533 

R 

7 378 

11743 

R 

105201 

R 

7 379 

1 1744 

R 

104645 

R 

7380 

11745 

R 

553767 

R 

7 381 

11746 

R 

611710 

R 

7382 

11747 

R 

603573 

R 

7 383 
7384 

11750 

R 

105151 

R 

7 385 

11751 

R 

777776 

A 

7 386 

1 1752 

R 

300016 

A 

7 387 

11753 

R 

0400! 4 


7388 

1 1754 

R 

220016 

A 

7389 

1 1 755 

R 

653606 

A 

7390 

1 1756 

R 

300016 

A 

7391 

11757 

R 

540167 

R 


/PROCESS THE ERASE COMMAND 
ERASE SZLiCLL 

JMP ERASE1 

LAC * L VAR 

SZA* STL 
JMP ELSE 

LAC BUFF 

I AC 

CALL STOR1 

JMP OTABLE 

/ERASE A STEP OR A PART 
ERASEi CALL EVAL 

SPA1CLL 
ERRS 

I D I V ; 144 

SNA 

JMP ERASR3 

CALL STEP 

LAw »2 

ADO R 1 6 

DAC R 1 4 

LAC* R16 

LMQJCLACiLLS+6 
ERASES DZM SWAPSW 

ADD R16 

DAC R1 5 

SAD END 

JMP ERASES 

LAC* R 1 5 

DAC* R14 

LAC R 1 5 

JMP * *5 

ERASES LAC R14 

CALL STOR1 

ISZ SWAPSW 

SKP 

JMS HANG 

CALL CHECK 

CALL OCHAr 

SAD C 5 4 

JMP ERASEI 

JMP D TABLE 

/ERASE A PART 
ERASE3 CALL PART 

LAW -2 

ADD R 1 6 

DAC R 1 4 

ERASE4 LAC* R16 

LMQ 1 CLAC ! LLS+6 
ADD R 1 6 

SAD END 


/ERASE ALL 
/DIRECT MODE? 
/£ IS ELSE 
/YES 


/FIND OUT WHAT STEP OR PART USER HAS IM MIND 
/MUST BE POSITIVE- "MINUS" 


/STEP OR PART? 

/PART (REMAINDER IS ZERO) 
/STEP 


/ONE BEFORE FIRST WORD 


/INHIBIT SWAP DURING PROG UPDATE 
/LA ST WORD 

/IS LAST WORD THE END? 

/NO 

/MOVEUP 


/TIME SLICE UP? 

/NO 

/YES, LET OTHERS RUN 


/, 


/EXIT WITH VAL=I NTEGER PART 


/ONE BEFORE FIRST WORD 


/REACHED THE END YET? 
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7392 

11760 

8 

611736 

R 

JMP 

ERASE6 

/yss 

7393 

11761 

R 

040016 

A 

DAC 

R 1 6 


7394 

1176? 

R 

220016 

A 

LAC* 

R16- 


7 3 95 

1 1763 

R 

653323 

A 

IDIV; 

144 



11764 

R 

000144 

A 




7396 

1 1765 

R 

641002 

A 

LACO 



7397 

117 6 6 

R 

540207 

R 

SAD 

VAL 

/NEW PART YET? 

7 398 

1 1 767 

R 

611754 

R 

JMP 

ERASE4 

/NO 

7 3 99 

1 1770 

R 

777776 

A 

LAW 

-2 


7 40 0 

11771 

R 

611725 

R 

JMP 

ERASE5 


7 401 





.EJECT 
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7402 





/PROCESS 

. THE FOR COMMAND 


7403 





/ FOR VAR=EXP,EXP:£XP:EXP,EXP: 

EXP UNTIL OR WHILE BOOL 

7404 





/ 




7 40 5 

1 1772 

R 

744400 

A 

FOR 

SNL’CLL 



7 40 6 

117 7 3 

R 

634073 

e 


JMP * 

FILE6 

/M2JAH12* ARG MISSING THEREFORE FILE COMMAND 

7407 

11774 

R 

104660 

p 


CALL 

□CHARI 


7 40 9 

1 1775 

P 

040214 

R 


DAC 

M 


7409 

1 1776 

R 

104710 

R 


CALL 

SUBOPT 


7410 

117 7 7 

R 

200214 

R 


LAC 

M 


741 1 

1 2000 

R 

553724 

R 


SAD 

(33 

/LEFT SQUARE BRACKET 

7412 

1 2001 

P 

634072 

E 


JiMP* 

FILE 

/* 1 2 JAH1 2* FILE WITH KEY CITED 

741 .3 





/##### 

SAVE ON 

STACK 


7414 

1 2002 

R 

777774 

A 


LAW 

-4 


7415 

12003 

R 

105040 

R 


CALL 

SAVE 


7416 

1 20 04 

R 

200235 

R 


LAC 

FOR VAR 

/NAME OF FOR VARIABLE 

7417 

12005 

R 

200243 

R 


LAC 

ri 

/POINTER TO FORVAR VALUE 

7418 

12006 

R 

200244 

R 


LAC 

T2 

/VALUE OF INCREMENT 

7419 

1 20 0 7 

R 

200245 

R. 


LAC 

f 3 

/TERMINAL VALUE 

7420 





/####* 




7421 

12010 

R 

105304 

R 


CALL 

ASSEM 


7422 

1 2011 

R 

553762 

P 


SAD 

(75 

/ = 

742 3 

12012 

R 

741000 

A 


SKP 



7424 

12013 

P 

000003 

A 


ERR 3 


/"SYMTX" 

7425 

12014 

R 

200205 

R 


LAC 

SCRIPS 


7426 

12015 

R 

744200 

A 


SZAiCLL 



7427 

12016 

K 

0 0 0 0 0 3 

A 


ERR3 


/ INDEX VARIABLE CAN’T HAVE ANY SUBSCRIPTS 

7429 








/"SYMTX” ERROR 

7429 

12017 

R 

107163 

R 


CALL 

EVAL 

/ EVALUATE INITIAL VALUE OF INDEX 

7430 

1 2020 

R 

200204 

R 


LAC 

SYMS 


74 31 

12021 

R 

040177 

R 


DAC 

SYM 


7432 

1 2022 

R 

040235 

R 


DAC 

FOR VAR 


7433 

12023 

R 

140200 

R 


DZM 

SCRIP 


7434 

120 2 4 

R 

754002 

A 


STL1CLA 


/SETUP FOR SYMBOL "PUT" 

7435 

1 2025 

R 

105434 

R 


CALL 

SYMBOL 

/PUT "FOR VAR" INTO USER SYM T8L . 

7436 

1 20 26 

e 

200017 

A 


LAC 

R 1 7 


7 437 

12027 

R 

040243 

R 


DAC 

T 1 

/ POINTER TO FOR VARIABLE'S VALUE 

7438 

1 2030 

R 

104645 

R 

FORI 

CALL 

OCHAR 


7439 

1 203 1 

R 

553764 

P 


SAD 

(72 

/ : 

7440 

1203? 

R 

M 221 4 

P 


JMP 

FOR I T 1 


7441 

1 2° 3 3 

R 

750001 

A 


CLAICMA 



7442 

1 2034 

R 

040244 

R 


DAC 

T2 

/ SET SWITCH 

7443 





/###*# 

POPSTACK ###*3 


7444 

1 2035 

R 

777775 

A 

FOR 2 

LA W 

-3 

/* 1 2 JAH1 4* 

7445 

1 2036 

R 

1 05040 

R 


CALL 

SAVE 


7446 

1 2037 

R 

200222 

R 


LAC 

□POINT 


7447 

1 2040 

R 

200223 

R 


LAC 

□PLACE 

/*12JAH14* CHAR POS 

7448 

1 2041 

R 

200206 

R 


LAC 

LOC 


7449 





/#«##» 


a a a a a 


7450 

1 2042 

R 

440203 

R 

FOR 3 

ISZ 

FORTST 


7451 

1 2043 

R 

104645 

R 


CALL 

□CHAR 


7459 

7453 

1 2044 

R 

741000 

A 

/ 

SKP 
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MUMP* 

5 

100 


0 M M A N 0 PRO 

GESSO RS 



7 454 

1 2045 

K 

104660 

R 

FOR 4 

CALL 

OCHARI 


7455 

12046 

R 

553653 

R 


SAD 

(40 

/SPACE 

7456 

1 2047 

R 

603537 

R 


JfMP 

FORXIT 


7457 

1 2050 

R 

553764 

R 


SAD 

(72 

/ : 

7458 

12051 

R 

741000 

A 


SKP 



7459 

12052 

R 

612045 

R 


JMP 

FOR 4 


7460 

1.2053 

R 

104660 

R 


CALL 

qchari 


7461 

1 2054 

R 

553764 

R 


SAD 

(72 

/ : 

7462 

1 2055 

R 

612045 

R 


JMP 

F0R4 


7463 

1 2056 

R 

553653 

R 


SAD 

(40 

/SPACE 

7464 

1 2057 

R 

741000 

A 


SKP 



7465 

1 2060 

R 

612053 

R 


JMP 

.-5 


7466 

12061 

P 

104660 

R 


CALL 

OCHARI 


7467 

12062 

R 

553653 

R 


SAD 

(40 

/SPACE 

7468 

1 2063 

R 

741000 

A 


SKP 



7469 

12064 

R 

612061 

R 


JMP 

. -3 


7470 

1 2065 

R 

1 04660 

R 

FOR 5 

CALL 

OCHARI 


7471 

12066 

R 

553653 

R 


SAD 

(40 

/SPACE 

7472 

1 2067 

R 

603537 

R 


JMP 

FORXIT 


7473 

12070 

R 

553755 

R. 


SAD 

(42 

/" 

7474 

12071 

R 

741000 

A 


SKP 



7475 

1 2072 

R 

612065 

R. 


JMP 

FOR5 


7476 

12073 

P 

104660 

R 


CALL 

OCHARI 


7477 

12074 

R 

553755 

R 


SAD 

(42 

/" 

7478 

12075 

P 

612065 

R 


JMP 

FQR5 


7479 

1 2 0 7 6 

R 

612073 

R 


JMP 

.-3 


7480 





/ 




7481 





/ 




7482 





/ return here from dispatch to 

ITERATE FOR LOOPS 

7483 





/ 




7484 





/###&# 

SAVE ON 

STACK ##### 


7485 

3 207 7 

R 

777775 

A 

forstp 

LAW 

-3 

/M2JAH14* 

7 486 

12100 

R 

105103 

R 


CALL 

UN SAVE 


7487 

12101 

R 

040206 

R 


DAC 

LOG 


7488 

12102 

P 

040223 

R 


DAC 

□PLACE 

/*12JAH14* CHAR POS 

7489 

12103 

R 

040222 

R 


DAC 

□POINT 


7 490 





/#*### 


* w # # * 


7491 

12104 

R 

105201 

R 


CALL 

CHECK 


7492 

12105 

R 

777777 

A 


LAW 

-1 


7 49 3 

12106 

P 

340203 

R 


TAD 

FORTST 


74Q4 

12107 

P 

040203 

R 


DAC 

FGRTST 

/ DECREMENT FORTST 

7495 

12110 

R 

777776 

A 


LAW 

-2 


7496 

12111 

R. 

300243 

R 


ADO 

Tl 


7497 

12112 

R 

040207 

R 


DAC 

VAL 

/ PTR TO INDEX-VARIABLE'S NAME IN SYMBOL TABLE 

7498 

121 13 

R 

740001 

A 


CM A 



7499 

12114 

P 

300170 

R 


ADD 

symbeg 


7500 

12115 

R 

744001 

A 


CMAiCLL 



7501 

12116 

R 

741300 

A 


SPA i SNA 


/OUTSIDE THE TABLE TEST 

7502 

12117 

R 

612124 

R 


JMP 

.+5 


7503 

12120 

R 

220207 

R 


LAC* 

VAL 


7504 

12121 

R 

240235 

R 


XOR 

FORVAR 


7505 

12122 

R 

553662 

p 


SAD 

( 400000 
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c a vs vt A *v D PROCESSORS 


MUMPS 100 


7506 

12123 

R 

612141 

R 


JMP 

FQR1T2 

7507 

12124 

R 

200235 

R 


LAC 

FORVAR 

7508 

12125 

R 

040177 

R 


DAC 

SYM 

7509 

12126 

R 

140200 

R 


DZ M 

SCRIP 

7510 

12127 

R 

754000 

A 


CLL’CLA 


751 1 

1 2130 

R 

105434 

R 


CALL 

SYMBOL 

7512 

1 2131 

R 

641002 

A 


LACQ 


7513 

12132 

R 

741200 

A 


SNA 


7514 

12133 

R 

000010 

A 


ERR 1 0 


7515 





/ 



7515 

121 34 

R 

745400 

A 


SZL’CLL 


7517 

12135 

Q 

00001 1 

A 


ERR 11 


7518 





/ 



7519 

12136 

R 

200017 

A 


LAC 

R l 7 

7520 

12137 

R 

740030 

A 


I AC 


7521 

12140 

R 

040243 

R 


DAC 

T 1 

7522 

12141 

R 

200244 

R 

FOR 1X2 

LAC 

T2 

7523 

12142 

R 

553741 

R 


SAD 

(777777 

7524 

12143 

R 

612167 

R 


JMP 

forwext 

7525 

12144 

R 

320243 

R 


ADD* 

Tt 

7526 

12145 

R 

741401 

A 


SZL’CMA 


7527 

121 46 

R 

000006 

A 


ERR6 


7528 

12147 

R 

744200 

A 


SZA «CLL 


7529 

12150 

R 

740001 

A 


CM A 


7530 

12151 

R 

060243 

R 


DAC * 

T 1 

7531 

12152 

R 

200245 

R 


LAC 

T 3 

7532 

1215 3 

R 

553741 

R 


SAD 

(777777 

7533 

12154 

R 

612230 

R 


JMP 

PORIF 

7534 





/ 



7535 

12155 

R 

560243 

R 

FOR IT 3 

SAD* 

T 1 

7536 

12156 

R 

612035 

R 


JMP 

FOR 2 

7537 

J 21 57 

P 

744001 

A 


CLL1CMA 


7538 

12160 

R 

320243 

R 


ADD* 

T 1 

7539 

12161 

R 

745400 

A 


SZLiCLL 


7540 

12162 

R 

220243 

R 


LAC* 

T 1 

7541 

12163 

R 

740001 

A 


CM A 


7542 

12164 

R 

240244 

R 


XOR 

T2 

7543 

12165 

R 

740100 

A 


SMA 


7544 

12166 

R 

612035 

R 


JMP 

FOR 2 

7545 

12167 

R 

104645 

R 

FQRNEXT 

CALL 

OCHAP 

7546 

12170 

R 

553767 

R 


SAD 

(54 

7547 

12171 

R 

612210 

R 


JMP 

F0R0N2 

7548 

12172 

R 

553653 

R 


SAD 

(40 

7549 

12173 

R 

751001 

A 


SKP 1CLA I 

CM A 

7550 

1217 4 

R 

000003 

A 


ERR 3 


7551 

1217 5 

R 

260243 

R 


XOR* 

n 

7552 

12176 

R 

300244 

R 


ADD 

r 2 

755 3 

12177 

R 

740001 

A 


C M 4 


7554 

1 2200 

R 

060243 

R 


DAC* 

T 1 

7555 





/###$ n 

POPSTACK 

# # * # # 

7556 

1 2201 

R 

777774 

A 

FORDONE 

l A tf 

-4 

7557 

1 2202 

R 

105103 

R 


CALL 

UNSAVE 


/SETUP FOR SYMBOL GET. 

/ LOOK FOR '’FOR VARIABLE” 

/ FOR VARIABLE HAS BEEN KILLED- "UNDEF” 

/ FOR VARIABLE IS NOW A STRING- "MIXED” 
/ FOR VARIABLE HAD MOVED 
/ NEW ADDRESS OF FOR VARIABLE’S VALUE 

/ INCREMENT FOR VARIABLE 
/"MAXIM" 


/ COMPARE INDEX AND TERMINATOR 
/ THEY'RE = ; LOOP ONCE MORE 


/ INDEXCTERMINATOR; LOOP SOME MORE 
/ TNQ£X>TER MINA TOR; CHECK FOR END 

/, 

/SPACE 


/"SYNTX 
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*UMPS 

1 0 0 

r* 

w 

0 MM AMD PRD 

CFSSCJRS 





7558 

1 2203 

p 

040245 

p 


DAC 

f 3 




7559 

1 2204 

R 

040244 

ft 


DAC 

T2 




7560 

12205 

R 

040243 

ft 


DAC 

T 1 




7561 

1 2206 

R 

040235 

R 


DAC 

FORVAR 




7562 





/####& 


##### 




7563 

1 2207 

R 

603602 

R 


J^P 

DTATST 




7564 





/ 






7565 

1 2210 

ft 

744000 

4 

F0R0N2 

CLL 


/HUMERI 

C RESULT ONLY 


7566 

1221 1 

ft. 

107163 

ft 


C A L iu 

EVAL 




7567 

12212 

P. 

060243 

R 


DAC* 

Tt 




7568 

12213 

ft 

612030 

ft 


JMP 

FORI 




7569 





/ 






7570 

12214 

R 

744000 

A 

FORin 

CLL 


/HUMERI 

C RESULT ONLY 


7571 

12215 

ft 

107163 

ft 


CALL 

EVAL 


/EVALUATE INCREMENT 


7572 

12216 

R 

040244 

R 


DAC 

T2 




7573 

12217 

R 

104645 

R 


CALL 

OCHAR 




7574 

12220 

R 

553653 

R 


SAD 

(40 


/SPACE 


7575 

12221 

R 

612230 

R 


JIMP 

FORIF 




7576 

12222 

R 

553764 

ft 


SAD 

(72 


/: 


7577 

1 2223 

R 

745000 

A 


SKPiCLL. 





7578 

1 2224 

R 

000003 

A 


ERR 3 



/ " S Y N T X M 


7579 

12225 

R 

1 07163 

R. 


CALL 

EVAL 


/EVALUATE TERMINATOR 


7580 

12226 

R 

040245 

R 


DAC 

T 3 




7581 

1 2227 

R 

612155 

R 


JMP 

FGRIT3 




7582 





/ 






7583 

1 22 30 

R 

1 40245 

ft 

FOR If 

DZ M 

T 3 




7584 

1 2231 

R 

777776 

A 


L A W 

-2 


/* 1 2 JAH1 4* 


7585 

1 2232 

ft 

105040 

R 


CALL 

SAVE 


/ * 1 2 JAH 1 4* 


7586 

1 2233 

R 

200222 

R 


LAC 

0 POINT 


/* l 2 J AH1 4* PTR WORD 


7587 

1 2234 

ft 

200223 

R 


LAC 

□PLACE 


/* 1 2 JAH 1 4* CHAR WITHIN WORD 


7588 

1 2235 

R 

104660 

R 


CALL 

□CHARI 




7589 

1 2236 

R 

554013 

R 


SAD 

(25 


/ UNTIL 


7590 

1 2237 

R 

612244 

R 


JMP 

.+5 




7591 

12240 

rs 

554014 

R 


SAD 

(27 


/ WHILE 


7592 

12241 

R 

74 1 OQ0 

A 


SKP 





7 59 3 

1 2242 

ft 

000004 

A 


ERR 4 



/ M C M M N D " 


7594 

1 2243 

R 

440245 

R 


ISZ 

T 3 




7595 

12244 

R 

104660 

R 


CALL 

□CHARI 




7596 

12245 

ft 

553653 

R 


SAD 

(40 




7597 

1 2246 

ft 

741000 

A 


SKP 





7598 

12247 

R 

612244 

R 


JMP 

.-3 




7599 

1 2250 

R 

106203 

R 


CALL 

BOOL 




7600 

12251 

ft 

240245 

R 


XOR 

T 3 




7601 

12252 

R 

751201 

A 


SNA1CLA 

1 C M A 


/LOOP FINISHED? 

/* 1 2 JAH1 8* 

7602 

12253 

R 

612261 

R 


JMP 

FORIF1 


/NO 

/*12JAH18* 

7603 

1 2254 

R 

777776 

A 


LAW 

-2 


/YES 

/ *1 2 JAH1 8 * 

7604 

i 2255 

R 

105103 

R 


CALL 

DM SAVE 


/POP START 

/*12JAH18* 

7605 

1 2256 

R 

740000 

A 


MOP 



/OF LOOP PTRS 

/* 1 2 JAH1 8* 

7606 

12257 

R 

740000 

A 


NOP 



/DON’T (MEED THEM ANYMORE 

/* 1 2 JAH 1 8 * 

7 60 7 

12260 

R 

612201 

ft 


JMP 

FORDONE 

/GO FINISH UP /* 1 2 JAH1 8* 

7608 

1 2261 

ft 

040245 

R 

FOR I F 1 

DAC 

T 3 


/INSERT -1 

/*12JAH18* 

7609 





/##### 

SAVE ON 

STACK 

»#### 
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7610 

12262 

R 

777777 

A 

LAW 

-1 

/*12JAH18* 

7611 

12253 

p 

1 05040 

R 

CALL 

SAVE 


7612 

1 2264 

R 

200206 

R 

LAC 

LOC 


7613 





/##### 


##$## 

7614 

1 2265 

R 

612.042 

R 

JMP 

EOR3 


7615 





.EJECT 
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MUWPS 


100 

r* 

OMMAMO 

PROCESSORS 




7616 





/PRO 

CESS THE GOTO COMMAND 



7617 

1 2266 

P 

740002 

A 

GO 

CML 


/0 LI NK = ARG(JMENT 


7618 

1 2267 

R 

220145 

R 


LAC I s 

L VAR 

/0 LVAR=DIRECT 


7619 

1 22 70 

P 

741600 

A 


SZL’SNA 


/SKIP ON ARGUMENT AND INDIRECT 


7 620 

12271 

a 

612326 

R 


JMP 

GOl 

/GO OR DIRECT MODE 


7621 

1 2272 

R 

200203 

R 


LAC 

FORTST 



7622 

12273 

R 

740200 

A 


SZA 


/NO GO’S IN FOR COMMANDS 


762 ? 

1 2274 

R 

000004 

A 


ERR4 


/ " C M M N D ** 


7624 

1 2275 

R 

107163 

R 


CALL 

EVAL 



7625 

12276 

R 

653323 

A 


IDI V; 

144 




1 2277 

R 

000144 

A 






7626 

1 2300 

R 

741200 

A 


SNA 




7627 

1 2301 

R 

612317 

R 


JMP 

G02 

/GOTO A PART 


7628 

1 2302 

R 

1051 23 

R 


l A L L 

STEP 

/GOTO A STEP 


7629 

12303 

R 

060145 

R 


0 AC* 

LVAR 



7630 

1 2304 

R 

200016 

A 


LAC 

R 1 6 



7631 

1 2305 

R 

040206 

R 


0 AC 

LOC 



7632 

12306 

R 

740030 

A 


X AC 




7633 

12307 

R 

040222 

R 


0 AC 

0 POINT 



7634 

12 310 

R 

213732 

R 


LAC 

CXCOl 

/*12JA.H14* 


7635 

12 311 

R 

040223 

R 


DAC 

□PLACE 

/*! 2JAH1 4* 


7 6 36 

12 312 

R 

203535 

R 


LAC 

DISPAT 



7 6 3 7' 

12 313 

R 

513657 

R 


AND 

C 77777 



7633 

12314 

R 

554045 

E 


SAD 

CALL71 

/*! 2JAH12* 


7639 

12315 

R 

634044 

e 


JMP* 

CALL7 

/*1 2 JAH1 2* 


7 64 0 

12316 

R 

611635 

R 


JMP 

002 



7641 





/ 





7642 

5 2 3 1 7 

p 

203535 

a 

G02 

LAC 

DISPAT 



7643 

12320 

R 

513657 

R 


AND 

(77777 



7 64 4 

1 2321 

R 

554045 

E 


SAD 

CALL71 

/* 1 2 JAH1 2* 


7 645 

1 2322 

P 

741000 

A 


SKP 



/*! 2JAH17* 

7646 

1 2323 

R 

61 1 624 

R 


JMP 

DO 1 



7647 

1 2324 

R 

105151 

R 


CALL 

PART 

/FIND PART 

/*1 2JAH1 7* 

7 648 

1 2325 

R 

634055 

£ 


JMP* 

DL2 


/*12JAH17* 

7649 





/ 





7650 





/PRO 

CESS THE GO 

command 



7651 

1 2326 

R 

744400 

A 

GOl 

SNL1CLL 


/SKIP ON NO ARGUMENT AND DIRECT 


7652 

1 2327 

R 

000004 

A 


ERR4 


/ « c M M M D ” 


765 3 

1 23 30 

R 

61 1662 

R 


JMP 

DO 3 



7654 






.EJECT 
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MUMPS 


1 0 0 

COMMAND PR DC 

ESSORS 



7 655 




/PROCESS 

■ THE HA 

NG COMMAND 


7656 

12 3 31 

p 

107163 

R HANG1 

CALL 

EVAL 


7657 

1 2332 

R 

140652 

R 

OZM 

SWAPSW 


7658 

1 2333 

R 

741231 

A 

SNA'CMA 

i I AC 

/*12JAH12* 

7659 

1 2334 

R 

612345 

R 

JMP 

HANG2 


7660 

1 23 35 

R 

047163 

R 

DAC 

EVAL 


7 6b 1 

1 2 3 3 6 

R 

777775 

A 

LAW 

17775 

Z777775 

7 662 

1 2 3 3 7 

R 

705522 

A 

INTOFF 



7 66 3 

12340 

R 

520654 

R 

AND* 

PRTNMB 


7664 

12341 

R 

253705 

R 

XOR 

(2 


7665 

1 2342 

R 

060654 

R 

DAC* 

PRTNMB 

/SET HANG 

7666 

1 2343 

R 

207163 

ft 

LAC 

EVAL 


7667 

1 2344 

R 

060153 

R 

DAC* 

SYMEND 

/STORE 

7669 

12345 

R 

101533 

R HANG2 

JMS 

HANG 


7669 

1 2346 

R 

603573 

R 

JMP 

D TABLE 


7670 





.EJECT 





PAGE 198 


M U M P S 


7671 

7672 

7673 

7674 
7676 

7676 

7677 

7678 

7679 

7680 
768 1 

7682 

7683 

7684 
7695 
7 686 

7687 

7688 


100 COMMAND PROCESSORS 






/pro: 

ESS THE IF 

COMMAND 

1 2347 

K 

744400 

A 

IF 

SNLiCLL 


1 2350 

r'v 

« 

612353 

R 


J IMP 

IF3 

1 2351 

p 

106203 

p 

IF2 

CALL 

BOOL 

1 2352 

R 

040246 

R 


DAC 

IFStfT 

12353 

R 

200246 

R 

1F3 

LAC 

IFSWT 

1 2354 

P 

741200 

A 


SNA 


1 2355 

R 

603602 

R 


JMP 

DTATST 

1 2356 

R 

1.0 46 45 

R 


CALL 

□CHAR 

1 2357 

R 

553767 

R 


SAD 

(54 

12360 

R 

612351 

R 


JMP 

IF2 

1 2361 

R 

603574 

R 


JMP 

QTAB1 





/PROC 

ESS THE ELSE COMMAND 

1 2362 

R. 

200246 

R 

ELSE 

LAC 

ifswt 

1 2 36 3 

R 

740200 

A 


SZA 


1 2364 

R 

603602 

R 


JMP DTATST 

1 2365 

R 

603573 

R 


JMP 

□TABLE 


.EJECT 


/♦12JAH12* IF TO ARGUMENTS 
/♦12JAH12* EVAL LOGICAL. ARG 
/STORE BOOLEAN VALUE 

/ * 1 2 J AH 1 2 * RETRIEVE LAST BOOLEAN VALUE 

/0 INDICATES FALSE 

/FALSE, SKIP REST OF LINE 

/SO FAR ALL ARE TRUE 

/MORE ARGUMENTS ? 

/*12JAH12* YES 

/* 1 2 JAH 1 2* NO, CONTINUE IN LINE 

/RETRIEVE THE LAST IF RESULT 

/TRUE IGNORE REST OF LINE 
/FALSE, CONTINUE SCAN 



PACK 199 

M(J Mp< 


1 0 0 


ommand pro 

CESSORS 



7689 





/PROCESS THE JOIN COMMAND 


7690 





/ 




7691 

12 3 66 

R 

744400 

A 

JOIN 

SNL1CLL 


/ARGUMENTS? 

7692 

1 2367 

R 

000004 

A 


ERR 4 


/ ' C M M N 0 ' - MUST BE ARGUMENTS 

7693 

1 2370 

R 

104660 

P 

JOT NO 

CALL 

OCHARI 

/ * 1 2JAH12* 

7694 

1 237 1 

R 

554001 

R 


SAD 

(36 

/*. 

7695 

1 2372 

w 

741000 

A 


SKP 



7696 

1 2 3 7 3 

R 

00001 3 

A 


ERR13 


/'GLOBE* 

7697 

1 2374 

R 

140254 

.R 


DZM 

GSYMBOL 

/NO NAKED VARIABLES 

7698 

12375 

R 

100270 

R 


CALL 

GSYM 

/PACK SUBSCRIPTS 

7699 

1 2376 

R 

553655 

R 


SAD 

(37 

/_ 

7 7 00 

1 2377 

R 

751001 

A 


SKPICLC 



7701 

12400 

R 

000003 

A 


ERR 3 


/ * S Y N T X ' 

7707 

1 2401 

p 

340166 

R 


TAD 

SP01MT 


7703 

1 2402 

R 

043712 

R 


DAC 

□ TEXT 

/SAVE WHERE SUBSCRIPTS END 

,7704 

1 2403 

R 

207107 

R 


LAC 

SET XO 


7705 

12404 

R 

340165 

R 


TAD 

STACK 


7706 

1 2405 

R 

050005 

R 


DAC 

REMOVE 

/SAVE WHERE THEY BEGIN 

7707 

12406 

R 

104660 

R 


CALL 

OCHARI 


7 709 

1 2407 

R 

554001 

R 


SAD 

(36 


7709 

12410 

R 

741000 

A 


SKP 



7710 

1241 1 

R 

00001 3 

A 


ERR 1 3 


/’GLOBE' 

771 1 

12412 

R 

1 00270 

R 


CALL 

GSYM 

/PACK SUBSCRIPTS OF 2ND 

7712 

12413 

R 

207107 

R 


LAC 

SET 10 


7713 

12414 

R 

340165 

P 


TAD 

STACK 


7714 

1 2415 

R 

047107 

R 


DAC 

SETIO 


7715 

12416 

R 

227107 

R 


LAC* 

SSTIO 


7716 

12417 

R 

570005 

R 


SAP * 

REMOVE 

/CHECK NAME AGREEMENT 

7717 

1 2420 

R 

751001 

A 


SKPICLC 



7718 

1 2421 

R 

000003 

A 


ERR3 


/ ' SY NT X ' 

7719 

12422 

R. 

340166 

R 


TAD 

SPOIMT 


7720 

1 2423 

R 

043174 

R 


DAC 

OUT 

/SAVE WHERE 2ND SUBS END 

7 7 2 1. 

124 24 

R 

447107 

R 

JOINl 

ISZ 

SETIO 

/CHECK FOR LOOP CASE 

7722 

1 2425 

R 

450005 

R 


1SZ 

REMOVE 


7723 

1 2426 

R 

210005 

R 


LAC 

REMOVE 


7724 

1 2427 

R 

543712 

R 


SAD 

□ TEXT 

/RUN OUT OF FIRST SUBS? 

7725 

1 2430 

R 

00001 3 

A 


ERR 1 3 


/YES, JOINING FROM N DDE WHICH HAS POINTER 

7726 








/"GLOBE" ERROR 

7727 

12431 

R 

207107 

R 


LAC 

SETIO 


7728 

1 243? 

R 

543174 

R 


SAD 

OUT 

/RUN OUT OF 2ND SUBS? 

7729 

1 24 3 3 

R 

000003 

A 


ERR 3 


/'SYNTX' - ALL SUBS EQUAL , CAUSES LOOP 

7730 

1 2434 

R 

230005 

R 


LAC* 

REMOVE 


773 1 

1 2435 

P 

567107 

R 


SAD* 

SETIO 

/SUBSCRIPTS EQUAL? 

77 32 

1 24 36 

R. 

612424 

R 


JMP 

JOIN 1 

/YES - COULD BE LOOP, KEEP LOOKING 

77 33 

1 2437 

R 

754000 

A 


CLL'CLA 


/NO - PROCEED 

7 7 34 

1 24 4 0 

R 

100272 

R 


CALL 

GLOBAL 

/'GET' 2ND 

77 35 

1 2441 

R 

200253 

R 


LAC 

GHEAD 


7 7 36 

1 2442 

R 

047107 

p 


DAC 

SETIO 


77 37 

1 2443 

P 

440015 

A 


ISZ 

R 1 5 


7 7 3 8 

1 2444 

R 

220015 

A 


LAC* 

R 1 5 

/SHOULD BE POINTER 

7 7 39 

1 2445 

R 

040207 

R 


DAC 

VAL 


7740 

1 2446 

R 

641002 

A 


LACQ 
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7741 

1 2447 

R 

754102 

A 

SMAICLA 

1 STL 

774? 

1 2450 

p v 

000010 

A 

ERR 1 0 


7743 

12 4 51 

R 

742010 

A 

RTL 


774 4 

1 2452 

R. 

100272 

R 

CALL 

GLOBAL 

7745 

1 2453 

R 

140172 

R 

DZM 

N RTS W 

7745 

1 2454 

R 

64100? 

A 

LACQ 


7747 

1 24 5 5 

R 

7 411 0 0 

A 

SPA 


7 7 43 

1 2456 

R 

000013 

A 

ERR13 


7749 

1 2457 

R 

253650 

R 

XOR 

C 600000 

7750 

1 2460 

R 

060015 

A 

DAC * 

R 1 5 

7751. 

1 2461 

R 

207107 

R 

LAC 

SETIO 

7752 

12462 

R 

040255 

R 

DAC 

GHDQLD 

775 3 

12463 

R 

220015 

A 

LAC* 

R15 

7 7 5 4 

1 2464 

R 

040253 

R 

DAC 

GHEAD 

7755 

12465 

R 

440172 

R 

ISZ 

WRTSW 

7756 

1 2466 

R 

151327 

R 

DZM 

GLFNCT 

7757 

1 2467 

R 

111331 

R 

JMS 

GDISK 

7 7 58 

12470 

R 

220705 

R 

LAC * 

G8WD2 

7759 

1 2471 

R 

741100 

A 

SPA 


7 7 60 

1 2472 

R 

513702 

K 

AND 

(77 

7761 

1 2473 

R 

353723 

R 

TAD 

(100 

7762 

1 2474 

R 

060705 

R 

DAC* 

G8WD? 

7763 

1 2475 

R 

134057 

E 

JMS* 

DMPOLD 

776 4 

12476 

R 

140577 

R 

DZM 

DSKACT 

7765 

1 2477 

R 

440652 

R 

ISZ 

S W APS W 

7766 

1 2500 

R 

741000 

A 

SKP 


7767 

12501 

R 

101533 

R 

JMS 

HANG /YES 

7768 

1 2502 

ft 

104645 

R 

CALL 

UCHAR 

7769 

1 2503 

R 

553767 

R 

SAD 

(54 

7 7 7 0 

12504 

R 

612370 

R 

JMP 

JO I NO 

7771 

7772 

1 2505 

R 

603574 

R 

JMP 

.EJECT 

0TAB1 


/'UNDEF* - NUT POINTER OP NOT DEFINED 

/ AC=2 STATES "JOIN POT", EXIT FROM GLOBAL ROUTINE WILL NOT ISZ SWAPS 
/'JOIN PUT' 

/DON'T WRITE UNLESS ALL IS OK 


/'GLOBE' - ALREADY BAS POINTER 
/FUDGE N BIT TO P BIT 
/STORE IN BUFFER 
/SAVED HEAD ADDRESS 

/GET POINTER 

/GHEAD AND GHDQLD SET UP TO AVOID ' CHPNT ' 
/WRITE OUT OLD BUFFER ON READ 
/AVOID TRAPPING 'JOIN PUT' 

/READ JOINED BLOCK 

/CHECK POINTER? 

/YES, ZORCH IT 
/INCREMENT JOIN COUNTER 

/* 1 2 JAH1 2* WRITE UPDATED BLK 
/FREE DISK 
/TIME SLICE UP? 

/NO 

LET ANOTHER RUN 
/NEXT CHAR 

/, 

/*12JAH12* MORE TO JOIN 
/M2JAH12* DONE 
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n 
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/PROCESS 

. THE KILL COMMAND 

7774 

1 2506 

R 

745400 

A 

KILL 

SZLiCLL 


7775 

1 2507 

H 

612513 

R 


JMP 

KILL 1 

111S 

12510 

R 

200135 

R 


LAC 

SYMBOT 

1111 

12511 

R 

104034 

R 


CALL 

STOR2 

7778 

12512 

R 

603573 

R 


JMP 

DT ABLE 

7 779 





/KILL A 

VARIABLE 

: OR AM ARRAY 

7780 

12513 

R 

104660 

R 

KILL1 

CALL 

□CHARI 

7781 

12514 

R 

554001 

R 


SAD 

(36 

7782 

12515 

R 

610104 

R 


JMP 

GKILL 

77 8 3 

12516 

R 

104710 

R 


CALL 

SUBOPT 

7784 

12517 

R 

105304 

R 


CALL 

ASSEM 

7 7 85 

1 2520 

R 

200204 

R 


LAC 

SYMS 

7786 

1 2521 

R 

040177 

R 


DAC 

S Y M 

7 7 8 7 

1 2522 

R 

200205 

R 


LAC 

SCRIPS 

7788 

12523 

R 

040200 

R 


DAC 

SCRIP 

7789 

12524 

R 

744002 

A 


STL 


7790 

1 2525 

R 

213756 

R 


LAC 

(500000 

7791 

1 2526 

R 

105434 

R 


CALL 

SYMBOL 

7792 

1 2527 

R 

104645 

R 

KILL15 

CALL 

□CHAR 

7 79 3 

1 2530 

R 

553767 

P 

KILL2 

SAD 

(54 

7794 

1 2531 

R 

612513 

R 


JMP 

KILH 

7795 

1 2532 

R 

603574 

R 


JMP 

Of ABl 

7796 






.EJECT 



/r 


./SETUP POP SYMBOL KILL, 


/ KILL THE SYMBOL, 
/*1 2 JAH1 2* 


/*1.2JAH12* 



COMMAND PROCESSORS 
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7 7 9 7 
7 798 

7799 

7800 

7801 
7 8 0 2 
7803 
7 8 0 4 
7805 
7906 

7807 

7808 

7809 

7810 
7 61 1 

7812 

7813 

7814 

7815 


. IFPNZ MODIFY 

/ 

/ 

/ MODIFY COMMAND 

/ 

/ MODIFY) <S> : <D> <IQ> <D> <R> (<D> C, <D> <ID> 0> <R> <D> ...)) <CR> 
/ 

/ Ni(ODlFY) <S> 4 < N > (, <S> 4 < N > . ..) <CR> 

/ 

/ <s> = NUMERIC EXP EQUATING TO STEP NO. BEING MODIFIED 
/ <D> = SINGLE CHAR DELIMITER NOT IN <ID> OR <R> 

/ < I D> = ID STRING 
/ <R> = REPLACEMENT STRING 

/ <N> = NUMERIC EXP EQUATING TO NSW STEP NO. 

/ <CR> = CARRIAGE RETURN 
/ 

/ FORM 1 ABOVE REPLACES THE FIRST OCCURRENCE OF ID STRING IN STEP NO. 
/WITH REPLACEMENT STRING. FORM 2 CHANGES THE OLD STEP NO. TO THE NEW 
/STEP NO. 


7 8 i 6 / 


781 7 





/USE OF 

MODIFY 

IN INDIRECT MODE 

REQUIRES EXTREME CARE. AN INDIRECT 

7818 





/modify 

MAY NOT 

MODIFY ITSELF NOR MAY IT RENUMBER ANOTHER STEP 

7919 





/WITH its STEP 

NUMBER. 


7820 





/ 




7821 

1 2533 

ft 

7 40400 

A 

M 0 D F Y 

SNL 


/ANY ARGUMENT? 

7822 

1 25 34 

R 

000003 

A 


ERR3 


/NO, SYNTAX ERROR 

7823 

1 2535 

R 

744000 

A 

MODMET 

CLL 

/NUMERIC 

RESULT ONLY 

7824 

125 36 

R 

107163 

R 


CALL 

EVAL 

/GO GET STEP NO TO BE MOD 

7825 

12537 

R 

745100 

A 


SPAJCLL 


/STEP NUMBER NEGATIVE? 

7826 

12540 

R 

000005 

A 


ERRS 


/YES, MINUS ERROR 

7827 

1 2541 

R 

560145 

R 


SAD* 

LVAR 

/MODIFYING STEP BEING EXECUTED? 

7828 

12542 

R 

000015 

A 


ERR 15 


/YES, STEPS ERROR 

7829 

12543 

R 

105123 

R 


CALL 

STEP 

/GO FIND LOC OF STEP IN PARTITION 

7 8 30 

1 2544 

K 

104645 

R 


CALL 

uchar 

/GET COMMAND CHAR 

7831 

12545 

R 

553764 

R 


SAD 

(72 

/ : 

7832 

12546 

R 

612552 

R 


JMP 

CTEXT 


783 3 

1 2547 

R 

553770 

ft 


SAD 

(43 

/ n 

78 34 

1 2550 

R 

612745 

R 


JMP 

SWNUM 


7 8 35 

12551 

R 

000003 

A 


ERR 3 


/SYNTAX ERROR 

7836 





/ 




7837 





/START 

OF : MODIFY STEP CONTENTS 

7638 





/ 




78 39 

1 2552 

R 

200207 

P 

CTEXT 

LAC 

V AL 

/SET UP R 1 6 AGAIN 

7840 

12553 

P 

105123 

R 


CALL 

STEP 

/IN CASE OF ADDITIONAL MOD TO THIS 

7 841 

12554 

R 

200016 

A 


LAC 

R 1 6 

/MOVE STEP TO 

7 8 42 

12555 

R 

104573 

R 


CALL 

MBUF2 

/TO STRING SUFFER 

7843 

12556 

R 

104660 

R 


CALL 

□CHART 

/FETCH NEXT COMMAND CHAR 

7944 

1 2557 

R 

741200 

A 


SNA 


/EQL? 

7845 

12560 

ft 

000003 

A 


ERR 3 


/YES, SYNTAX ERROR 

7846 

12561 

R 

040224 

R 


DAC 

TEMPI 

/* 1 2 JAH 1 4* SAVE DELIMITER 

7 8 4 7 

1 2562 

R 

2 1 37 32 

R 


LAC 

(XCOl 

/♦12JAH14* CHAR PQS= 

7 84 8 

12563 

R 

040231 

R 


DAC 

PLACE2 

/*12JAH14* MIDDLE 
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7849 

1 2564 


045040 

R 


DAC 

SAVE 

7850 

! 2565 

R 

200016 

A 


LAC 

R 1 5 

7851 

12566 

R 

740030 

A 


I AC 


7852 

1 2567 

R 

040230 

R 


DAC 

P 0 1 M T 2 

7853 

12570 

R 

044034 

R 

RSET 

DAC 

ST0R2 

7854 

1 2571 

R 

200222 

R 


LAC 

OPOINT 

7855 

1 2572 

R 

040225 

R 


DAC 

POINT! 

7856 

12573 

R 

200223 

R 


LAC 

OP LACE 

7857 

1 2574 

R 

040226 

R 


DAC 

PLACE1 

7858 

1 2575 

R 

104770 

R 

. TRY NSC 

CALL 

CHARI 

7859 

1 2576 

R 

612620 

R 


JMP 

FOUND 

7860 

1 2577 

R 

741200 

A 


SNA 


7861 

1 2 6 00 

R 

000003 

A 


ERR 3 


7862 

12601 

K 

040227 

R 


DAC 

TEMP2 

7863 

12602 

R 

105014 

R 


CALL 

CHAR2 

7864 

1 2603 

R 

612575 

R 


JMP 

TRY NSC 

7865 

12604 

R 

741200 

A 


SNA 


7866 

12605 

R 

000003 

A 


ERR3 


7867 

1 2606 

R 

204034 

R 


LAC 

ST0R2 

7 86 8 

12607 

K 

0 40 2 3 0 

R 


DAC 

P01NT2 

7869 

12610 

R 

205040 

R 


LAC 

SAVE 

7870 

12 611 

R 

040231 

R 


DAC 

PLACE2 

7871 

1261? 

R 

105014 

R 


CALL 

CHAR2 

7872 

12613 

R 

740000 

A 


NOP 


787 3 

12614 

R 

200231 

R 


LAC 

PL ACE 2 

787 4 

12615 

H 

045040 

R 


DAC 

SAVE 

7875 

12616 

R 

200230 

R 


LAC 

P0IMT2 

7876 

12617 

R 

612570 

R 


JMP 

RSET 

7877 





/MATCH 

HAS BEEN 

found 

7878 

12620 

R 

200225 

R 

FOUND 

LAC 

POINT! 

7879 

1 2621 

R 

040222 

R 


DAC 

□POINT 

7880 

.1 2622 

R 

200226 

R 


LAC 

PL ACE 1 

788 1 

12623 

R 

040223 

R 


DAC 

□PLACE 

7882 

1 2624 

R 

2001 33 

R 


LAC 

BUFF 2 

788 3 

1 2625 

R 

740031 

A 


TC A 


7884 

1 2626 

R 

040202 

R 


DAC 

TEMP 

7885 

.1 2627 

R 

340016 

A 


TAD 

R 1 5 

7886 

1 2630 

R 

740031 

A 


TC A 


7887 

1 2631 

R 

344034 

R 


TAD 

ST0R2 

7 88 8 

1 263? 

R 

040220 

R 


DAC 

I POINT 

7889 

12633 

R 

205040 

R 


LAC 

SAVE 

7890 

1 2634 

R 

723061 

A 


A AC 

XCI1-XC01 

7 89] 

12635 

R 

040221 

R 


DAC 

IPLACE 

7892 

126 3 6 

R 

200133 

R 


LAC 

BUFE2 

7893 

1 2637 

p 

354015 

R 


TAD 

(STRACC-l 

7894 

12640 

R 

040014 

A 


DAC 

R 1 4 

7895 

1 2641 

R 

104660 

ft 

REPCH 

CALL 

OCHAp I 

7896 

1264? 

R 

741 200 

A 


SNA 


7897 

12643 

R 

612657 

R 


JMP 

ESTR 

7898 

1 2644 

R 

540224 

R 


SAD 

TEMPI. 

7899 

1 2645 

R 

612657 

R 


JMP 

ESTR 

7900 

1 2646 

R 

104725 

R 


CALL 

ICHARI 


/*] 2 JAH1 4* 

/LOAD PTR TO FIRST WORD OF STEP TO BE MOD 
/INCR TO FIRST DATA WORD 

/SAVE PTR TO POTENTIAL FIRST CHAR OF STRING IN STEP 
/* 1 2 JAH1 4* 

/SET UP CHARI TO READ FIRST CHAR OF ID STRING 

/*12JAH14* SAVE 

/*12JAH14* CHAR POS 

/FETCH ID STRING CHAR 

/YES, STRING MATCH 

/NO, EOL BEFORE 2ND OCCUR OF DELIMITER? 

/YES, SYNTAX ERROR 
/SAVE CHAR 
/FETCH STEP CHAR 
/*12JAH14* IGNORED RETURN 
/EOL? 

/YES, ID STRING NOT FOUND IN STEP, SYNTAX ERROR 

/NO, RESTORE POINT2 TO CHAR OF STEP 

/MATCHED TO FIRST CHAR OF ID STRING 

/*12JAH14* RESTORE 

/♦12JAH14* CHAR POS 

/ADVANCE 1 CHAR IN STEP 

/IGNORED RETURN 

/*12JAH14* SAVE 

/*12JAH14* CHAR POS 

/SEEK MATCH WITH NEW SUBSTRING OF STEP 


/SET UP OPOINT TO READ FIRST CHAR 
/OF REPLACEMENT STRING? 

/*12JAH14* SET UP 

/*12JAH14* CHAR POS 

/GET ADDR OF STRING BUFFER 

/♦12JAH14* SAVE ITS 2'S COMPL 
/ADD STEP ADDR 

/ADD START OF REPLACEMENT IN STEP 
/START OF REPLACEMENT IN STRING BUFFER 
/♦12JAH14* RESTORE 
/♦12-JAH14* UPDATED 
/*12JAH14* CHAR POS 


/LAST POSSIBLE ADDR FOR STEP IN STRING BUFFER 

/FETCH CHAR OF REPLACEMENT STRING 

/EOL? 

/YES 

/*12JAH14* DELIMITER? 

/YES 

/PUT CHAR IN STRING BUFFER 
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7901 

12647 

R 

200220 

R 


LAC 

I POINT 

7902 

12650 

R 

540014 

A 


SAD 

R14 

7903 

1 2651 

R 

741000 

A 


SKP 


790 4 

1 2652 

R 

612641 

R 


JMP 

REPCH 

7905 

12653 

R 

200221 

R 


LAC 

I PL ACE 

7906 

12654 

R 

553727 

P 


SAD 

( XC 1 3 

7907 

12655 

R 

000006 

A 


ERR6 


7908 

1 2656 

R 

612641 

R 


JMP 

REPCH 

7909 

1 2 6 5 7 

R 

200222 

R 

ES FR 

LAC 

□POINT 

7910 

12660 

R 

044034 

R 


DAC 

ST0R2 

79,11 

1 2661 

R 

200223 

R 


LAC 

□PLACE 

7912 

1 2662 

ri 

044340 

K 


DAC 

placf: 

791 3 

12663 

R 

105014 

R 

REP2CH 

CALL 

CHAR2 

791 ^ 

1 2664 

R 

740000 

A 


MOP 


7916 

1 2665 

R 

741200 

A 


SNA 


7916 

1 2666 

R 

612700 

R 


JMP 

finrpl 

7917 

1 2667 

R 

104725 

R 


CALL 

ichari 

7918 

1 2 6 7 0 

R 

200220 

R 


LAC 

IPOINT 

7919 

1 2671 

R 

540014 

A 


SAD 

R14 

7 920 

12672 

R 

741000 

A 


SKP 


7921 

1 267 3 

R 

612663 

R 


JMP 

REP2CH 

7922 

12674 

R 

200221 

R 


LAC 

l PL ACE 

7 92 3 

1 2675 

R 

553727 

R 


SAD 

( XCi 3 

7 92 4 

1 2676 

R 

000006 

A 


ERR 6 


7925 

1 2 6 7 7 

R 

612663 

R 


JMP 

RSP2CH 

7926 

1 2 7 0 0 

R 

104725 

R 

FI NR PL 

CALL 

ICHARI 

7927 

1 2701 

R 

200133 

R 


LAC 

3JFF2 

7929 

1 2702 

R 

723001 

A 


AAC 

1 

7929 

1 2 7 0 3 

R 

0 4 0 2 2 7 

R 


DAC 

TEMP 2 

7930 

1 7704 

R 

220227 

R 


LAC* 

TEMP2 

7931 

1 2705 

R 

653606 

A 


LMQ1CLAC 

» LLS + 6 

7 9 32 

1 2 7 0 6 

R 

200220 

R 


LAC 

I POINT 

7 9 3 3 

1 2707 

R 

340202 

R 


TAD 

TEMP 

7934 

3 2 7 1 0 

R 

723777 

A 


AAC 

-1 

7935 

12711 

R 

640614 

A 


LLS 

14 

7936 

12717 

R 

060227 

R 


DAC* 

TEMP? 

7937 

12713 

R 

200207 

R 


LAC 

VAL 

7 9 3 8 

1 271 4 

P 

104616 

R 


CALL 

ERMOD 

7939 

12715 

K 

213732 

R 


LAC 

(XCU1 

7 Q 40 

12716 

R 

040223 

P 


DAC 

OP LACE 

7941 

12717 

p 

200227 

R 


LAC 

TEMP2 

7 9 4 2 

12 720 

R 

040222 

R 


DAC 

□POINT 

794 3 

1 7721 

R 

1 04357 

R 


CALL 

PL AC 1 

7 94 4 

1 2722 

R 

204034 

p 


LAC 

STOP 2 

7945 

12 7 23 

R 

040222 

R 


DAC 

□POINT 

7 94 6 

1 2724 

R 

204340 

R 


LAC 

PLACE 

7 94 7 

12725 

R 

040223 

R 


DAC 

□PLACE 

7 Q4P 

1277b 

p 

1 06201 

p 


CALL 

CHECK 

7949 

1 2727 

R 

104645 

R. 


CALL 

□ CHAR 

7 950 

1 27 30 

R 

741200 

A 


SNA 


7951 

1 2731 

R 

612735 

R 


JMP 

NRLINE 

7952 

127 32 

R 

104660 

R 


CALL 

□CHARI 


/2ND CHAR OP 25 XH wGRD OF STEP BUFFER? 
/*12JAH14* LAST WORD OF BUFFER 
/* 1 2 JAH1 4* NOT LAST WORD 
/* 1 2 JAH1 4* CHAR POS = 

/ * 1 2 J AH 1 4* LAST? 

/YES, MAXIM ERROR 100 MANY CHARS 

/SAVE COMMAND PTR 

/*12JAH14* SAVE 

/*12JAHi4* CHAR POS 

/GET REMAINING CHARS IM STEP 

/DONE? 

/YES 

/PUT CHAR IN STRING SUFFER 

/2ND CHAR OF 25FH W D OF STEP BUFFER? 
/*12JAH14* LAST WORD OF BUFFER 
/*12JAH14* NOT LAST WORD 
/* 1 2 JAH1 4* CHAR POS = 

/*12JAH14* LAST? 

/YES, MAXIM ERROR TOO MANY CHARS 

/ADD EOL 


/2ND WRD OF STEP (IN STRING BUFFER) 


/*12JAH14* SUBTRACT START OF STRING BUFFER 
/DECREMENT TO GET PROPER STEP COUNT 
/INSERT NEW STEP COUNT 
/RETURN TO 2ND WORD 

/ERASE OLD STEP 
/*12JAH14* CHAR POS = 

/* 1 2 JAH1 4* MIDDLE 

/SET UP PTR TO NEW STEP 
/PUT NEW STEP IN PARTITION 

/RESTORE COMMAND PTR 
/*12JAH14* RESTORE 
/*1 2JAH14* CHAR POS 

/RESTORE PTRS TO EXECUTING STEP IF NEC 
/GET CHAR AFTER REPLACEMENT STRING 
/EOL? 

/YES, WRITE STEP IF IN DIRECT MODE 

/NO, CLOSING DELIMITER INSERTED; FETCH NXT CHAR 
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795 i 

1 2733 

R 

553767 

R 


SAD 

(54 

7 95 4 

1 2734 

R 

612552 

R 


JMP 

CTEXT 

7955 

1 27 35 

R 

220145 

R 

W R L I N E 

LAC* 

LVAR 

7956 

1 2 7 3 6 

R 

740200 

A 


SZA 


7957 

12737 

R 

603573 

R 


JMP 

□ TABLE 

7958 

12740 

R 

200207 

R 


LAC 

VAL 

7959 

1 2 7 41 

R 

105123 

R 


CALL 

STEP 

7960 

1 2742 

R 

200207 

R 


LAC 

VAL 

7961 

1 2743 

R 

107066 

R 


CALL 

WRSTEP 

7962 

1 2744 

R 

603573 

R 


J.MP 

□ TABLE 

7 96 3 





/ 



7964 





/START 

OF # MODIFY S EP 

7965 





/ 



7966 

1 2745 

R 

200016 

a 

S W N U M 

LAC 

R16 

7967 

12 7 4 6 

R 

045123 

R 


DAC 

STEP 

7968 

12747 

R 

744000 

A 


CLL 


7969 

1 2750 

R 

107163 

R 


CALL 

EVAL 

7970 

1 275 1 

R 

560145 

R 


SAD* 

LVAR 

7971 

12752 

R 

000015 

A 


ERR 1 5 


7972 

1 2753 

R 

741300 

A 


SPA i SNA 


7973 

1 2754 

R 

000005 

A 


ERRS 


7974 

1 2755 

R 

653323 

A 


JDIV ; 

144 


1 2756 

R 

000144 

A 




7975 

12757 

!\ 

741.200 

A 


SNA 


79 76 

1 2760 

R 

000014 

A 


ERR14 


7977 

1 2761 

R 

205123 

R 


LAC 

STEP 

7978 

1 2762 

R 

104573 

R 


CALL 

M5UF2 

7 979 

12 7 6 3 

R 

200207 

R 


LAC 

VAL 

7980 

12764 

p 

060133 

R 


DAC* 

BUFF2 

7 981 

12765 

R 

225123 

R 


LAC* 

STEP 

7982 

1 27 66 

R 

104616 

R 


CALL 

ERM0D 

7983 

1 2767 

R 

220133 

R 


LAC* 

9UFF2 

7984 

1 27 70 

R 

040207 

R 


DAC 

VAL 

7985 

1 2 7 71 

R 

200222 

R 


LAC 

□ POINT 

7986 

1 2772 

R 

045123 

R 


DAC 

STEP 

7987 

1 277 3 

R 

200223 

R 


LAC 

□ PLACE 

7 9 8 8 

1 27 74 

R 

04461 6 

R 


DAC 

ERsMOD 

7989 

1 2775 

R 

213730 

R 


LAC 

(XCIl 

7990 

1 2776 

R 

040221 

R 


DAC 

I PL ACE 

7991 

1 2 7 7 7 

P 

21 3732 

R 


LAC 

(XC01 

7992 

1 3000 

R 

040223 

R 


DAC 

□ PLACE 

7993 

1.3001 

R 

200133 

R 


LAC 

9UFF2 

7994 

1 3002 

R 

723001 

A 


AAC 

1 

7 Q 95 

13003 

R 

040222 

R 


DAC 

□ POINT 

7996 

1 3004 

p 

340214 

R 


TAD 

A 

7 9 9 7 

1 3005 

R 

040220 

R 


DAC 

I POINT 

7998 

1 3 0 0 6 

R 

104357 

R 


CALL 

PL AC 1 

7999 

1 3007 

p 

205123 

Q 


LAC 

STEP 

8 0 0 0 

1 3010 

R 

040222 

R 


DAC 

□ POINT 

8 0 0 1 

13011 

R 

204616 

R 


LAC 

ERMOD 

8002 

1 3012 

R 

040223 

R 


DAC 

□ PLACE 

8003 

13 013 

R 

105201 

R 


CALL 

CHECK 


/COMMA -MEANS ADOIT, MODS. TO THIS STEP 


/IN DIRECT MODE? 
/NO 


tv IJ M S E R 


/SAVE PTR TO 1ST WORD OF STEP TO BE RENUM. 

/GET NEW STEP NO 
/REPLACING EXECUTING STEP? 

/YES , STEPS ERROR 
/NEG OR ZERO? 

/YES , MINUS ERROR 


/ZERO FRAC STEP? 

/ YES , FRACT ERR 

/MOVE STEP TO STRING BUFFER 

/REPLACE STEP # 

/ERASE OLD STEP 

/NEW STEP # 

/SAVE COMMAND PTR 
/*12JAH14* 

/* 1 2 JAH1 4* 

/*1?JAH14* SET UP 
/♦I 2 JAH1 4* OUTPUT CHAR POS 
/♦12JAH14* AND 
/*12JAH14* INPUT CHAR POS 

/POINT TO 
/ 2 ND 

/ (STEP COUNT) 

/AND LAST WORD OF STEP (IN STRING BUFFER) 
/INSERT NEW STEP 
/RESTORE COMMAND PTR 

/*12JAH14* RESTORE 
/*12JAH14* CHAR POS 

/RESTORE PTRS TO EXECUTING STEP IF NEC 
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8 00 4 

! 3 0 1 4 F 

? 104645 R 

CALL 

□CHAR 


8005 

13015 i 

1 553767 R 

SAD 

(54 

/COMMA MEANS ADDITIONAL. STEP M3 CHANGES 

8 0 0 6 

13016 F 

3 612535 R 

JMP 

MOD NET 


8 00 7 

13017 f- 

< 603573 R 

JMP 

•□TABLE 


8 0 0 8 



• EM DC 



8009 



.EJECT 
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CESSORS 



8010 





/PROCESS THE PRINT COMM? 

UO - OUTPUT AW ASCII CODE 

8011 

1 3020 

R 

107107 

Q 

PRIM 

CALL 

SETIO 

/SET UP FOR CORRECT DEVICE 

8012 

1 302 1 

R 

.744400 

A 


SNL ‘CLL 


/MUST HAVE A NUMERIC ARGUMENT 

8013 

3 3 022 

R 

0 0 0 0 0 4 

A 


ERR4 


/"CMMND" 

8014 

1 3023 

R 

107163 

R 

PRIMO 

CALL 

5VAL 

/*12JAH12* 

8015 

1 3024 

R 

144710 

R 


DZ M 

SUBOPT 

/SU80PT USED AS SPACING COUNTER IN OUT 

8016 

1 3025 

R 

513657 

R 


AND 

(77777 


8017 

1 3 0 2 6 

R 

652000 

A 


L M 0 



8018 

1 3027 

R 

200020 

A 


LAC 

R20 

/IS PRINCIPAL DEVICE 

8019 

1 3030 

R 

540162 

R 


SAD 

PRNCnv 

/USER'S TERMINAL? 

802.0 

1 303 1 

R 

741000 

A 


SKP 


/..WES 

8021 

1 3032 

R 

613037 

R 


JMP 

PRINT3 

/. . .NO 

8022 

1 3033 

R 

641002 

,A 


LACQ 


/FETCH P VALUE 

8023 

1 30 34 

R 

514016 

R 


AND 

(277 

/GET 8 BITS 

8024 

1 3035 

R 

554017 

R 


SAD 

(200 

/REMOTE BREAK TO SELF? 

8025 

1. 30 36 

R 

613050 

R 


JMP 

PRINT! 

/REMOTE BREAK TO SELF NOT PERMITTED 

8026 

1 3037 

R 

554020 

R 

PRINT 3 

SAD 

(12 

/LF 

802 7 

1 3 04 0 

R 

741000 

A 


SKP 



8028 

1 3041 

R 

613045 

R 


JMP 

PRIMT2 


8 0 2 9 

1 3042 

R 

2 2 0 1 5 i 

R 


LAC * 

¥ VAR 


8 0 30 

1 3 0 4 3 

R 

353715 

P 


TAD 

(144 


8031 

1 30 44 

R 

060151 

R 


DAC* 

WAR 


8032 

1 3045 

R 

214021 

R 

PRINT2 

LAC 

(PRINT1 

/FUDGE OUTPUT 

803 3 

1 3046 

R 

043174 

R 


DAC 

OUT 


80 3 4 

1 3047 

R 

60325 3 

R 


JMP 

XOUT4A 


8 0 35 

1 3 0 5 0 

R 

104645 

R 

PRIM 1 

CALL 

OCHAR 


8036 

1 3051 

R 

553767 

R 


SAD 

(54 


6037 

1 3 05 2 

R 

61 3023 

P 


JMP 

primo 

/♦12JAH12* COMMA, PROCESS NEXT ARG 

8 0 8 8 

1 305 3 

R 

607010 

R 


JMP 

NEXT? 

/DONE 

8039 
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8 0 4 0 





/PROCESS 

l THE QUIT COMMAND 

8 0 41 

1 3054 

R 

2 0 0 2 0 3 

R 

QUIT 

LAC 

FORTST 

8042 

1 3 055 

R 

751201 

A 


SMAiCLAi 

CM A 

80 4 4 

1 3 0 56 

R 

623535 

R 


JMP* 

DISPAT 

8044 

1 3057 

R 

340203 

R 


TAD 

FORTST 

8045 

1 3060 

R 

040203 

R 


DAC 

FORTST 

8 0 4 b 





/# ft # # * 

POPSTACK 

# 4 4 n # 

8047 

1 306 1 

k 

777771 

A 


LAW 

-7 

8 0 48 

1 3 0 6 2 

R 

105103 

R 


CALL 

U USA VE 

8049 

1 3063 

R 

740000 

A 


NOP 


8050 

1 30 6 4 

R 

740000 

A 

r\ 


NOP 


8051 

1 3065 

P 

740000 

A 


NOP 


8052 

1 3 0 6 6 

P 

040245 

R 


DAC 

T 3 

8 05 3 

1 3067 

R 

040244 

R 


DAC 

T2 

8054 

1 3 0 7 0 

R 

040243 

P 


DAC 

Tl 

8055 

1 3 0 71 

P 

040235 

R 


DAC 

FORVAR 

8056 





/ 4 # ft # ft 


ft ft # ft # 

8057 

1 3 0 7 2 

R 

603573 

R 


JMP 

DT ABLE 

8 05 8 






.EJECT 



/FIRST EXIT 

/QUIT OUT OF A FOR COMMAND 


/*! 2JAH1 4* 

/DON’T RESTORE *12-3* 

/♦12JAH14* 

/LAST T WO WORDS OF STACK *12-3* 
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1 0 U 

CO 

'}v‘A i '<D RkOC 

ESSGRS 



8 05 9 





/PROCESS 

THB:; READ COMMA? 

10 

8 0 6 0 





/ 




8 061 

1 307 3 

H 

107107 

R 

READ 

CALL 

SET 10 


8 06 2 

1 3074 

R 

745400 

A 


SZLiCLL 


/READ ALL? 

806 3 

1 3075 

R 

613152 

R 


JMP 

READ1 


8 06 ^ 

1 3076 

R 

220145 

R 


LAC* 

LV r AR 

/YE S, MUST BE IN DIRECT MODE 

8066 

1 3 0 7 7 

p 

750201 

A 


SZAiCLC 


/SET ACC TO -1 FQR SAVE *12JAH9* 

8 06 b 

13100 

R 

000004 

A 


ERR4 


/ CMMND ERROR. 

8 06 7 

13101 

R 

777776 

A 


LAW 

”2 

/* 12JAB14* 

8 06 8 

1 3102 

R 

105040 

R 


CALL 

SAVE 

/SAVE DIRECT *12JAH9* 

8069 

1310 3 

R 

2 0 0 2 2 2 

R 


LAC 

0 POINT 

/COMMAND POINTER *1?JAH9* 

8 0 7 0 

13104 

K 

200223 

R 


LAC 

□PLACE 

/*12JAH14* CHAR POS 

8071 

13105 

R 

213732 

R 

READO 

LAC 

CXC01 

/* 1 2 JAH1 4* I NIT 

80 7 2 

1 3 5 06 

R 

040223 

R 


DAC 

□PLACE 

/♦12JAH14* CHAR PQS PTR 

8073 

13107 

R 

213730 

R 


LAC 

(XCIl 

/*12JAH14* IN IT 

8 0 7 4 

13110 

R 

040221 

R 


DAC 

I PLACE 

/*12JAH14* CHAR POS PIR 

8 0 7 5 

13111 

R 

200133 

R 


LAC 

BUFF? 

/*12JAH14* SETUP TO STR AC 

8076 

13112 

H 

040220 

R 


DAC 

IPQINT 

/*12JAH14* AS IF IT WERE. THE 

8077 

13113 

R 

040222 

R 


DAC 

□ POINT 

/* 1 2 JAH1 4* DIRECT COMMAND BUFFER 

8 0 / 8 

13114 

R 

103326 

R 


CALL 

PACK EM 

/FILL BUFFER 

8079 

13116 

R 

00001 5 

0 


ERR1 5 


/NO MJ ALLOWED 

8 0 8 0 

13116 

R 

104660 

R 


CALL 

□CHARI 

/GET 1ST CHAR OF LINE AND TEST IT 

8081 

.13117 

R 

103724 

R 


CALL 

SYNTAX 


8 0 8 2 

13120 

R 

000003 

A 


ERR 3 


/A-" SYNTX" 

8 08 3 

13121 

R 

613142 

R 


JMP 

READOA 

/N --NUMERIC GO PLACE STEP 

8084 

13122 

R 

740200 

A 


SZA 


/P--IS IT EG M 

8085 

13123 

R 

000004 

A 


ERR4 


/NO CMMND ERROR 

80 8 b 

13124 

R 

21373? 

R 


LAC 

(XC01 

/ * 1 2 J A H 1 4+ UNIT 

8087 

131 25 

R 

040223 

R 


DAC 

□ PLACE 

/* 1 2 JAH1 4* INPUT 

8088 

13126 

R 

213730 

R 


LAC 

(XCI1 

/♦12JAH14* AND OUTPUT 

8089 

1 3127 

R 

040221 

R 


DAC 

[PLACE 

/* 1 2 JAH 1 4* CHAR POS PTR 

8090 

1 3130 

R 

200133 

p 


LAC 

3UFF2 

/ * 1 2 JAH 1 4* READ IN NEXT LINE 

8091 

1313 3 

R 

040220 

R 


DAC 

I POINT 

/♦12JAH14* 

8092 

1 31 32 

R 

040222 

R 


DAC 

□ POINT 

/*1 2 JAH1 4* 

8 09 3 

1313 3 

R 

103325 

R 


CALL 

PACKEM 


8094 

13134 

R 

000015 

A 


ERR 1 5 



8095 

1313 5 

R 

104660 

R 


CALL 

□CHARI 

/GET 1ST CHAR 

8096 

13136 

R 

103724 

R 


CALL 

SYNTAX 

/AND CHEXK IT 

8097 

1313 7 

R 

000003 

A 


ERR 3 


/ A--SYNTAX ERROR 

8098 

1 31 40 

R 

741000 

A 


SKP • 


/N — GO PLACE STEP 

8099 

13141 

R 

613144 

R 


JMP 

READOB 

/P — TERMINATE PROGRAM LOADING *12JAH9* 

8100 

1 3 3 42 

R 

104340 

R 

READQA 

CALL 

PLACE 


8 101 

13143 

R 

613105 

R 


JMP 

READO 

/GO BACK FOR NEXT COMMAND LINE 

8102 

1 31 44 

R 

777776 

A 

REA DO b 

LAW 

-2 

/*12JAH14* 

8103 

13145 

p 

105103 

R. 


CALL 

UN SAVE 

/RESTORE DIRECT *12JAH9* 

810 4 

1314b 

R 

040223 

R 


DAC 

□PLACE 

/* 1 2 JAH1 4* CHAR POS PTR 

BIOS 

1314 7 

R 

04022? 

R 


DAC 

□ POINT 

/COMMAND POINTER M2JAH9* 

8106 

1315 0 

R 

1 0 4645 

R 


CALL 

□ CHAR 

/FETCH NEXT COMMAND CHAR *12JAH9* 

8107 

13151 

P 

607010 

R 


JMP 

NEXT? 

/EXECUTE NEXT COMMAND *12JAH9* 

8 1 0 8 





/ 




8109 





/READ A 

STRING 

variable 

- 

8110 





/ 






PAGE 210 

»"'<• Li * P S 

1 0 0 

n 

SUMMAND PROCESSORS 


Bill 

1 3 1 5 2 

P 

10 66 7 3 

R 

READ! CALL 

FORMAT 

8112 

.1 315 3 

R 

74140 0 

A 

SZL 


8113 

1315 4 

R 

000003 

A 

ERR 3 


8114 

13155 

R 

105304 

R 

CALL 

ASSEm 

8115 

13156 

p 

220144 

R 

LAC * 

WVAR 

8115 

13157 

Q 

740031 

A 

TC A 


8117 

1316 0 

H 

060154 

R 

DAC* 

PR TEND 

BUS 

13161 

R 

213730 

R 

LAC 

(XCI1 

8119 

1316 2 

R 

040221 

R 

DAC 

I PLACE 

8120 

1316 3 

R 

200133 

P 

LAC 

8UFF2 

8121 

13164 

R 

040220 

R 

DAC 

I POINT 

8122 

8123 

8124 

13165 

R 

103325 

013166 

R 

R 

CALL 

READ1 A= . 

PACKEM 

8125 

.13166 

R 

613161 

R 

JMP 

.-5 

8126 

13167 

R 

200221 

R 

LAC 

IPLACE 

8127 

1317 0 

R 

553727 

R 

SAD 

( XC I 3 

8129 

13171 

R 

613175 

R 

JMP 

• * 4 

812 9 

1317 2 

R 

750000 

A 

CLA 


8 1 3 0 

1317 3 

H 

104725 

R 

CALL 

ICHARI 

8131 

1317 4 

P 

613167 

P 

JMP 

.-5 

8132 

1317 5 

R 

200133 

R 

LAC 

BUFF ^ 

8133 

13176 

R 

7 4 0 0 0 1 

A 

CM A 


813 4 

1317 7 

K 

300220 

ft 

ADO 

IPOINT 

8135 

1 3 2 0 0 

R 

513702 

R 

AND 

(77 

8 13 6 

1 320 3 

R 

553702 

R 

SAD 

(77 

8137 

1 3202 

R 

750000 

A 

CLA 


8138 

1 3 2 0 3 

ft 

6 5 0 5 0 o 

A 

CLG i LRS+6 

813° 

1 3204 

R 

220133 

R 

LAC* 

BUFF 2 

8140 

1 3205 

R 

513645 

ft 

AND 

(7777 

8141 

1 3206 

R 

640002 

A 

QMQ 


8 142 

1 3207 

R 

060133 

R 

DAC* 

3 OFF 2 

814 3 

13 21 0 

R 

754001 

A 

CLAiCMA 

iCLL, 

814 4 

1 321 1 

R 

040207 

R 

DAC 

VAL 

8 3 4 5 
8146 

13212 

R 

606770 

R 

JMP 

, EJECT 

FORM? 


/* PREFIX ILLEGAL, 


/SETUP WATCHDOG COUNTDOWN 


/*12JAHl4* IN IT OUTPUT 
/*12JAH14* CHAR POS PTR 
/*12JAH1 4* 

/*! 2JAK14* 

/THIS LABEL USED 8Y MUOC TO DETERMINE IF READ 
/OF STRING VARIABLE UPON OENTRY FROM PACK EM 
/*12JAH14* 

/* 1 2 JAH1 4* POS PTR 

/*12JAH14* PT TO LAST CHAR IN WORD 
/* 1 2 JAH1 4* YES 

/M2JAH14* NO OUTPUT NULL CHAR 
/♦I 2JAH14* 

/♦12JAH14* TEST FOR LAST CHAR AGAIN 


/IS IT ZERO LENGTH? /*12JAH17* 

/YES, MAKE SURE OFFSET IS ZERO /*12JAH17* 
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914 7 





/PROCE 

SS THE SET 

’ COMMAND 



8 3 4 8 

13213 

R 

744400 

A 

SET 

SNL'CLL 




81 49 

13214 

R 

000004 

A 


ERR4 

/ " C M M N D " 



8150 

13215 

R 

104660 

R 


CALL 

OCHAPI 



8151 

1 3 ? i 6 

R 

554001 

R 


SAD 

(36 /r 



815 2 

13217 

R 

610073 

R 


JMP 

GPUT 



8153 

1 32 20 

K 

104710 

0 


CALL 

SUBOPT 



8154 

1 322 1 

R 

105304 

R 


CALL 

ASSEM 



8155 

1 3222 

R 

553762 

R 


SAD 

(75 / = 



8156 

1 3223 

R 

741000 

A 


SKP 




8157 

1 3224 

R 

000003 

A 


ERR 3 

/"SYNTK" 



8158 






SAVE ON 

STACK ##*!■## 



8 1 5 Q 

1 3225 

R 

777776 

A 


LAW 

-2 



8160 

1 3226 

K 

105040 

R 


CALL 

SAVE 



8161 

1 3227 

R 

200204 

R 


LAC 

S Y MS 



8162 

1 3 2 3 0 

R 

200205 

R 


LAC 

SCRIPS 



8 3.63 





/###! tP 


# M 3* 



8164 






• 1 F P N Z 

FMQNEY 



8165 

1 3231 

R 

750030 

A 


CLAi IAC 

/FLQAT=1 MEANS THIS IS THE 

ONLY 

PLACE FROM 

8 1 ob 

1 3232 

R 

040212 

P 


DAC 

FLOAT /wHICH $A CAN BE CALLED i 

i i » i 
* • • • 

8167 






.ENDC 




8168 

1 3233 

R 

744002 

A 


STL 




8169 

1 3234 

R 

107163 

R 


CALL 

EVAL 



817 0 






. IFPNZ 

F MONEY 



817 1 

1 3235 

R 

140212 

R 


DZM 

FLOAT /$ A CANNOT BE USED 

WHEN 

FLOAT=0 

8172 






.ENDC 




817 3 





/##### 

POPSTACK 

; ##### 



817 4 

1 3 2 36 

R 

777776 

A 


L A W 

-2 



3175 

1 3237 

P 

105103 

R 


CALL 

UN SAVE 



8176 

1 3240 

R 

040200 

R 


DAC 

SCRIP 



817 7 

1 3 2 41 

R 

040177 

R 


DAC 

S YM 



8178 





/#**## 


##### 




8179 

8180 

1 3242 
1 3243 

R 

R 

754002 

105434 

A 

R 


STL I CL A 
CALL 

SYMBOL 

/ PUT 

8181 

1 3244 

R 

104645 

R 

SET2 

CALL 

□CHAR 


819? 

1 3 2 45 

p 

553767 

R 


SAD 

(54 

/COMMA 

818 3 
8184 
81 85 

13 2 46 
13247 

R 

R 

613215 

603574 

R 

R 


JMP 

JMP 

.EJECT 

SET + 2 
QTABLE+1 




P AGS 2)2 


'•"(IMPS 100 


COMMAND PROCESSORS 


8196 /PROCESS THE TYPE COMMAND 


8187 

1 3 2 5 0 

R 

1071 0 7 

R 

TYPE 

v A L L 

SET 10 

8189 

1 3261 

R 

744400 

A 


SNLiCLL 


8189 

1 3257 

P 

613301 

R 


JMP 

TALL 

BIRD 

1 3253 

R 

1 0 6 b 7 3 

R 


CALL 

FORMAT 

819 1 

1 3754 

p 

74540? 

A 


SZLiCLL 

!CML 

8192 

1 3755 

R 

613274 

R 


JMP 

TYPE 3 

Rl a 9 

1 3 2 5 6 

R 

107163 

R 


call. 

EVAL 

8194 

1 3 25 7 

R 

553741 

R 


SAD 

( 777777 

8196 

1 3 2 6 0 

R 

61 3263 

R 


JMP 

CYPE2 

8196 

1 3261 

R 

104255 

R 


CALL 

DECOUT 

8.197 

1 3 2 6 2 

R 

606777 

R 


JMP 

NEXT 

8199 

1 3263 

R 

200133 

R 

TYPE2 

LAC 

BJFF2 

8199 

1 3264 

R 

040225 

R 


DAC 

PQINTl 

8200 

1 3265 

R 

213732 

R 


LAC 

CXC01 

8201 

1 3266 

R 

040226 

R 


DAC 

PLACE! 

8202 

1 3267 

R 

140224 

R 


DZM 

TEMPI 

8203 

1 3270 

R 

104770 

R 


CALL 

CHARI 

8204 

1 327 1 

R 

605777 

R 


JMP 

NEXT 

8 206 

1 3272 

R 

103174 

H 


CALL 

OUT 

8 206 

1 3273 

R 

613270 

R 


JMp 

.-3 

8 20 7 

1 3274 

R 

107163 

R 

TYPE 3 

CALL 

EVAL 

820 9 

1 3275 

R 

553741 

R 


SAD 

(777777 

8209 

1 327 6 

R 

613263 

R 


JMP 

TYPE? 

6210 

1 327 7 

R 

104320 

R 


CALL 

octout 

8211 

1 3300 

R 

606777 

R 


JMP 

NEXT 

8212 





/ 



8213 

1 3 303 

R 

200170 

K 

TALL 

LAC 

SYMBEG 

8214 

1 3302 

R 

040017 

A 


DAC 

HI 7 

8 215 

1 3 30 3 

R 

750000 

A 

TALL1 

CLA 


8216 

1 3 3 0 4 

R 

103174 

P 


CALL 

OUT 

8217 

1 3305 

r> 

200017 

A 


LAC 

R 1 7 

8 218 

1 3306 

R 

740030 

ft 


I AC 


82.1 9 

1 3 3 0 7 

R 

540153 

R 


SAD 

SYMEMD 

8220 

13310 

P 

606777 

R 


JMP 

NEXT 

8221 

13 311 

R 

220017 

A 


LAC* 

R 1 7 

8222 

13 312 

R 

045040 

R 


DAC 

SAVE 

8223 

13 313 

R 

777775 

A 


L A W 

-3 

8224 

13 314 

R 

045103 

P 


DAC 

UNSAVE 

8225 

13 315 

R 

205103 

R 

T A L L 2 

LAC 

UN SAVE 

8226 

13316 

R 

043712 

R 


DAC 

□ TEXT 

8227 

13 317 

R 

206040 

R 


LAC 

SAVE 

822« 

1 3 3 2 0 

R 

741000 

A 


SKP 


8 22 9 

1 3 3 2 1 

R 

640505 

A 


LRS 

5 

8230 

1 3 3 2 2 

R 

443712 

R 


ISZ 

OTEXT 

82 3 1 

1 3 3 2 3 

13 

6)3321 

R 


JMP 

- -2 

8 2 3 2 

1 3 32 4 

R 

51 3665 

R 


a m r> 

( 37 

923 3 

1 3 325 

u 

553751 

P 


SAD 

( 35 

8234 

1 3326 

R 

760045 

A 


LA> 

45 

8 2 3 6 

1 3327 

R 

55371 3 

R 


SAD 

( 34 

8236 

1 3 3 30 

R 

760044 

A 


L A 

44 

8 2 37 

1 3 3 3 1 

R 

740200 

A 


SZA 



/TYPE A Li L 


/TYPE A STRING 

/*12 JAH1 4* INIT 
/*12JAH!4* CHAR POS 
/TERMINATOR FOR CHARI 
/GET CHAR 
/DONE 


/STRING 


/ TYPE ALL VARIABLES IN CORE 


/ CRLF 


/ NO MORE VARIABLES IN CORE 
/ GET NEXT VAR'S NAME 
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8 2 3 8 

1 3 3 32 

R 

1. 0 317 4 

W 


CALL 

our 



8239 

1 3 3 3 3 

u 

445103 

R 


ISZ 

UN SAVE 



0240 

1 3 3 3 4 

R 

613315 

R 


JMP 

TALL2 

/NEXT CHAR. 


8 ? 4 1 

1 33 35 

R 

205040 

R 


LAC 

SAVE 



9242 

1 3 3 3b 

R 

742110 

A 


SMAiRTL 




824 3 

1 3 3 37 

t'j 

61 3357 

p 


JMP 

TARRAY 

/ ITS A N ARRAY? GO TYPE 

IT 

8 24 4 

1 3 3 4 0 

R 

760075 

A 


L A W 

75 



8 2 4 5 

1 3 3 41 

R 

103174 

R 


CALL 

OUT 

/ = 


8246 

1 3342 

P 

205040 

R 


LAC 

SAVE 



8247 

1 3343 

R 

742010 

A 


R’TL 




82 48 

1 3 3 4 4 

R 

741400 

A 


SZL 




8 2 49 

1 3 345 

Q 

61 3351 

R 


JMP 

. +4 



8 25 0 

1 33 46 

R 

220017 

A 


LAC 5 *' 

R17 

/ ITS A NUMERIC VAR? GET 

ITS VALUE 

8251 

1 3 3 4 7 

R 

104255 

R 


CALL 

OECOIIT 

/ TYPE VAR’S VALUE 


825? 

1 3350 

R 

613303 

R 


JMP 

TALL! 



825 3 

1 335 1 

R 

107021 

R 


CALL 

TSTR 

/ IT'S A STRING VAR? GO 

TYPE IT 

8254 

1 335? 

R 

613303 

R 


JMP 

TALL1 



8255 





/ 





8256 






.IFPNZ 

F MONEY 



825? 

1 3 3 5 3 

H 

20001 7 

A 

I A L L 4 

LAC 

R 1 7 

/SKIP OVER 4 WORDS 


8 25 0 

1 3 35 4 

R 

7 2.300 4 

A 


AAC 

4 

/(LENGTH OP P.P. VAR) 


8259 

1 3355 

R 

04001 7 

A 


DAC 

R 1 7 



8260 

1 3 356 

R 

61 3303 

R 


JMP 

TALL1 



8 2b 1 






. ENDC 




8 2 n 2 





/ 





8 26 3 



013357 

R 

T A R R A Y = 

• 




8264 






• IFPNZ 

F MONEY 



8 2o5 

13 3 5 7 

R 

740400 

A 


SNL 


/FLOATING POINT? 


8 26 6 

1 3360 

R 

613353 

R 


JMP 

TALL 4 

/YES , PRINT NULL STRING 


8267 






.ENDC 




8 2 b 8 

1 3 361 

R 

220017 

A 


LAG* 

R 1 7 

/NO, ARRAY 


8269 

1 3 362 

R 

300017 

A 


ADD 

R 1 7 



8 27 0 

1. 3 36 3 

R 

045103 

R 


DAC 

UNSAVE 

/ POINTER TO NEXT VAR 


8271 

1 3 3 6 4 

K 

760050 

A 

TARPl 

L A W 

50 



8272 

1 3365 

R 

103174 

R 


CALL 

OUT 

/ ( 


827 3 

1 3 3 6 6 

0 

220017 

A 


LAC * 

R 1 7 

/ GET SUBSCRIPT 


8274 

1 3367 

R 

741100 

A 


SPA . 




8275 

1 3370 

R 

613407 

R 


JMP 

TASTR 

/ GO TYPE STRING VAR 


8276 

1 3 3 7 1 

R 

104255 

R 


CALL 

OECOUT 

/ TYPE SUBSCRIPT 


8 27 7 

1 3 37 ? 

o 

760051 

a 


L Aw 

51 



8278 

1 337 3 

R 

103174 

R 


CALL 

OUT 

/ ) 


8279 

1 3374 

R 

760075 

A 


LAW 

75 



8 2 80 

1 3 375 

R 

103174 

R 


CALL 

OUT 

/ = 


8 20 1 

1 3 376 

F? 

220017 

A 


LAC * 

R 1 7 

/ GET VAR'S VALUE 


8282 

1 3377 

D 

104255 

R 


CALL 

OECOUT 

/ AND TYPE IT 


8 28 3 





/ 





8284 

1 3 4 0 0 

R 

20001 7 

A 

TARR2 

LAC 

R 1 7 



8 2° 5 

1 3 ^ 0 1 

p 

545103 

P 


SAD 

UNSAVE 



8236 

1 3402 

R 

613303 

R 


JMP 

TALL1 

/ END OF ARRAY 


8287 

1 3 4 0 3 

R 

750000 

A 


CLA 




8238 

1 3 40 4 

R 

103)74 

R 


CALL 

OUT 

/ CRLP 


8239 

1 3405 

R 

760040 

A 


LAW 

40 

/ SPACE? INDENT REST OF 

ARRAY 



PAGE 2 1 4 

tfUVPS 


3 0 0 

8 290 
8291 

1 3 4 0 6 


613365 

8292 

1 3407 

8 

7 4 0 0 0 1 

829 I 

19 41 0 

R 

1 0 4 2 5 5 

829 4 

13411 

0 

760051 

8295 

1 3 4 1 ? 

P. 

103174 

8295 

1 341 3 

P 

760075 

8297 

1 3414 

p 

1 03174 

8298 

1 3 4 1 5 

K 

107021 

8299 

8300 

1 34 1 fc 

R 

61 3401 


COMMAND PROCESSORS 


R 

/ 

JMP 

TARR1 +1 

A 

TASTR 

CMA 


R 


CALL 

DEC OUT 

A 


LAW 

51 

R 


CALL 

OUT 

A 


LA*i 

75 

R 


CALL 

OUT 

R 


CALL 

TSTR 

R 


Jwp 

.EJECT 

TARR2+1 


/ TYPE SUBSCRIPT 


/ ) 
/ = 
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1 0 0 

rr 

*«■ 

i M M AND PR: 

1CESSORS 



8 801 





/PROCESS THE WRITS COMM* 

\ WD 

8 30 2 

13 417 

o 

1 07107 

R 

WRITE 

CALL 

SET in 


8 30 3 

1 34 2 0 

P 

745400 

4 


SZLiCLL 



8304 

1 3421 

R 

613441 

R 


JMP 

WRITE1 


8305 

1 3422 

0 

200134 

R 


LAC 

6UFF 

/WRITE ALL 

8 306 

1 3423 

R 

040016 

A 


DAC 

R 1 6 


8 307 

1 3 4 2 4 

R 

2 2 0 0 1 6 

A 


LAC 4 

R 1 6 


8 308 

1 3425 

ft 

653606 

A 


LMQ1CLAC 

1 LLS+6 


8 30 9 

1 3 42 6 

R 

300016 

A 


ADO 

R16 


8310 

1 3 4 2 7 

8 

540167 

ft 


SAD 

END 


8311 

1 34 30 

R 

61 3462 

R 


JMP 

WRITE 3 

/PGM BUFFER EMPTY 

8 312 

1 3431 

r\ 

040016 

A 


DAC 

R 1 6 


831 3 

1 3432 

R 

220016 

A 


LAC* 

R 1 6 


8314 

1 3 4 3 3 

R 

653323 

A 


IDIV? 

1 44 



1 34 34 

R 

000144 

A 





8316 

1 3435 

R 

641002 

A 


LACQ 



8 316 

1 34 36 

R 

040207 

R 


DAC 

VAL 


8317 

1 3437 

R 

107041 

R 


CALL 

NftPART 


8 318 

1 3440 

R 

613437 

R 


JMP 

.-1 


8319 





/WRITE 

A PART OR 

A STEP 


8 3 2 0 

1 3441 

R 

7 4 4 0 0 0 

A 

wRTTEI 

CLL 


/NUMERIC RESULT ONLY 

8 32 1 

1 3442 

ft 

107163 

R 


CALL 

SVAL 


8322 

1 34 43 

p 

745ino 

A 


SPA’CLL 



8 32 3 

1 3 4 4 4 

R 

0 0 0 0 0 5 

A 


ERR5 


/"MINUS" 

8 324 

1 3445 

p 

653323 

A 


I D I V ; 

1 44 



1 3 4 4 6 


000144 

A 





8325 

1 3447 

R 

740200 

A 


SZA 



8326 

1 3450 

R 

o l 3 460 

ft 


JMP 

N R 1 f E 2 


8 327 

1 3451 

R 

105151 

R 


CALL 

PART 

/WRITE A PART 

8326 

1 3452 

R 

107041 

R 


CALL 

WRP ART 


8329 

1 3453 

R 

760000 

A 

WRITE4 

LAW 

0 

/END OUTPUT OF A PART 

8 3 3 0 

1 3454 

R 

103174 

R 


CALL 

GUT 

/OR A WRITE ALL WITH 2 NULL STRINGS 

8 3 3 1 

1 3 4 5 5 

R 

760000 

A 


L A W 

0 


8 3 32 

1 3456 

R 

103174 

R 


CALL 

QJT 


8 33 3 

1 3457 

P 

613462 

R 


JMP 

WRITE 3 

/ 

8 3 34 

1 3460 

R 

305123 

R 

WRITE2 

CALL 

STEP 

/WRITE A STEP 

8335 

1 3461 

R 

107066 

R 


CALL 

WRSTEP 


8 336 

1 3462 

R 

104645 

R 

WRITE3 

CALL 

ochar 


8 3 37 

1 3463 

R 

553767 

R 


SAD 

(54 


8 3 38 

1 3464 

P 

613441 

R 


JMP 

WRITE 1 


83 39 

1 3465 

R 

652000 

A 


LMQ 



8 3 40 

13466 

R 

607011 

R 


JMP 

NEXT! 


8 3 41 






.EJECT 
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CO' 
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9342 





/SPECIAL X COMM 

AND TO READ 

DISC 

BLOCKS 

8 343 
8344 





/ 

• DEC 




8 3 45 



0 0 0 0 0 0 

4 

. „ A = 4Q96/BL,QCK*64*RF15 



9346 



001600 

A 

• * o ~ • • 

C-l/RLOCK+1 



8 34 7 






• OCT 




8 348 

1 3 4 6 7 

P 

140252 

R 

XCDM 

DZ M 

GHI 


/USER PART, CELL TO BE USED AS F CM INDICATOR & THEN TEMP 

8 3 49 

1 34 7 0 

p 

741400 

A 


SZL 



/ARCS? 

8350 

1 3471 

R 

440252 

R 


ISZ 

GHI 


/YES, SET GHI TO INDICATE EITHER DISK READ OR CORE WRITE 

8 35 1. 

1 3472 

P 

105272 

R 


CALL 

KEYCHK 


/CHECK XCOM KEY=USER KEY (IP XCOM KEY=0, ANY USER KEY OK) 

8352 

1 3 4 7 3 

8 

234067 

E 


LAC * 

OX KEY 


/ 2 ARCS FOR KEYCHK- -SYS XCOM KEY 

8 3 5 3 

1 3 4 7 4 

R 

740200 

A 


SZA 



/SKIP IP NO KEY SPECIFIED /*12JAH18* 

8 35 4 

1 3475 

F 

560137 

R 


SAD* 

KVAR 


/" M --USSR KEY 

8355 

1 3476 

P 

7 410 0 0 

A 


SKP 



/KEYS MATCH /*12JAH18* 

8 356 

1 3477 

o 

000032 

A 


ERF 32 



/KEYS DIDN'T MATCH--ERROR 

9 357 

1 3500 

p 

200252 

R 


LAC 

GHI 


/DISK WRITE? 

8 359 

1 3501 

R 

745200 

A 


SNA »CLL 



/CLEAR LINK SO EVAL WILL ALLOW ONLY NUMERIC RESULT 

8 3 59 

1 3502 

R 

613514 

R 


JMP 

XCOKw 


/YES, DISK WRITS 

8 3 6 0 

1 3503 

R 

107163 

R 


CALL 

EVAL 


/EVALUATE 1ST ARG ( NUM RESULT ONLY) 

8 361 

1 3 5 0 4 

R 

040252 

R 


DAC 

GHI 


/SAVE IT 

8362 

1 3505 

R 

1 04645 

9 


CALL 

OCHAR 


/GET NEXT CHAR 

8 36 3 

1 3506 

P 

553767 

R 


SAD 

(54 


/COMMA? 

8364 

1 3507 

R 

613527 

R 


J M P 

XCDKr 


/YES, DISK READ WITH UNIT ft STATED EXPLICITLY 

8 365 

1 3510 

R 

553655 

R 


SAD 

( 37 


/8ACKARR0W? 

8 366 

1 351 1 

R 

613555 

R 


J M P 

XCCORJ 


/YES, CORE WRITE 

8 367 

13512 

R 

140247 

P 


DZM 

GUNIT 


/DISK READ WITH DEFAULT UNIT OF 0 

8 36 R 
8369 

1 3513 

9 

613537 

R 

/ 

JMP 

XCDKR1 



9 3 7 0 





/ 





837 1 





/ 





8 372 





/DATA 

BLOCK WRITE ROUTINE-- 

USER 

IS EXPECTED TO HAVE SETUP QBPNT AND 

8 37 3 





/BUN IT 

TO INDICATE TUE BLOCK MU 

MBFR AND UNIT NUMBER RESPECTIVELY, 

8 37 4 





/THIS 

CAN BE DONE BY SIMPLY 

READING IN THE DESIRED BLOCK VIA 

8 3 7 5 





/ X C 0 M • 





83 76 





/ 





8 377 





/ 





8 37 8 

1 351 4 

R 

200607 

R 

X C D K X 

LAC 

ACSwr 


/GET CURRENT DATA SWITCH SETTING 

8 379 

13515 

R 

51 3637 

P 


AND 

C tOQOO 


/XCOM WRITE SWITCH SET? 

8 380 

13516 

R 

741200 

A 


SNA 




9 3 Q 1 

13 517 

o 

000032 

5 


ERR 3 2 



/NO, TREAT AS KEY ERROR 

8392 

1 3 5 20 

R 

200250 

R 


LAC 

bunit 



839 3 

1 3521 

P 

040247 

R 


DAC 

GU JIT 



8 3 6 4 

1 3522 

R 

103641 

R 


^ A L L 

PRODA 


/GET DISK 

8 3«5 

1 3 5 2 3 

R 

200171 

R 


L< A C 

qbrnt 


/PUT BLOCK NUMBER IN AC FOR XCDIS 

9 386 

1 3524 

R 

113600 

R 


J MS 

XCDIS 


/GO CHECK OUT BLOCK NUMBER 

8387 

1 3525 

H 

1 34057 

P 


J M S 4 

DM POLO 


/*12JAH12* WRITS OUT BLOCK 

8 38m 
8 399 

1 3 5 2b 

R 

61 3547 

R 

/ 

JMP 

XCOMEX 


/EXIT 

8 3 9 0 
8 391 





/ 

• EJECT 
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u 
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OCESSORS 


8392 





/ 



8 39 3 





/ 



8394 





/ 



8395 





/DATA 

BLOCK READ 

■ ROUTINE- 

8396 





/XCOKR 

IS THE ENTRY POINT 

8397 





/IN HIS COMMAND 

STRING. 

8 398 





/DEFAULT UNIT SETTING OF 

8 398 





/ 



8 400 





/ 



8 401 

1 3527 

9 

744000 

A 

XCDKR 

CL.L 


8 40? 

1 35 30 

R 

107163 

ft 


CALL 

EVAL 

8 40 3 

1 35 3 1 

R 

741100 

A 


SPA 


8 4 0 4 

1 3 5 3 2 

R 

000005 

A 


ERRS 


8405 

1 3 5 3 3 

R 

040247 

R 


DAC 

GUN IT 

8406 






. I FZER 

RP 

8407 






SZA 


8408 






. ENDC 


8409 






. IFPNZ 

RP 

841 0 

1 3534 

R 

354022 

R 


TAD 

( -RP 

8411 

1 35 35 

R 

740100 

A 


SMA 


8 41? 






.ENDC 


8413 

1 35 36 

R 

000006 

a 


ERR6 


841 4 

1 35 37 

R 

103641 

R 

XCDKR1 

CALL 

P ft 0 0 A 

8 415 

1 3540 

o 

200252 

R 


LAC 

GHI 

8 416 

1 354 1 

R 

040253 

ft 


DAC 

GHEAD 

8 4 1 7 

1 3 5 4 2 

ft 

113600 

R 


JMS 

XCOlS 

8418 

1 3543 

R 

1 34102 

E 


JMS* 

GETMEW 

8 414 

1 3544 

ft 

220705 

R 


LAC* 

GBWD2 

8420 

1 3545 

R 

640503 

A 


LRS 

3 

842 1 

1 3546 

ft 

040255 

R 


DAC 

GHDOLD 

8422 

1 3547 

R 

140577 

R 

XCOM EX 

DZM 

DSKACT 

8423 

1 3550 

R 

1 40252 

R 

XCOREX 

DZM 

GHI 

84 ?a 

18551 

9 

44065,2 

R 


ISZ 

SWAPSW 

8 42 5 

1 3552 

R 

603573 

P 


JMP 

0 TABLE 

8426 

1.3553 

ft 

101533 

R 


JMS 

H A N G 

6427 

1 3554 

ft 

6 0 35 7 3 

R 


JMP 

D TABLE 

8 42 8 





/ 



8429 





/ 



8 4 30 





/ 



84 3 1 





/COPE 

WORD WRITE 

' ROUTINE 

8432 





/ 



8433 





/ 



843 4 

1 3555 

R 

20060? 

R 

XCCORW 

LAC 

ACSWR 

84 35 

1 3556 

ft 

51 36 37 

R 


AND 

( 1 0000 

8436 

1 3557 

R 

745202 

A 


SNA 1 STL 


64 3 7 

1 3 560 

ft 

000032 

A 


ERR 3 2 


84 3 8 

1 3561 

R 

10/163 

ft 


CALL 

EVAL 

84 3 Q 

I 3 5 6 7 

ft 

722000 

A 


PAL 


8 440 

13553 

ft 

200252 

R 


LAC 

GHI 

8441 

1 3 5 8 4 

ft 

721000 

A 


PAX 


8 44? 

1 3565 

ft 

741100 

A 


SPA 


8 4 4 3 

1 3566 

P 

000005 

A 


ERR5 



-THERE A RE T to 3 ENTIRES INTO THIS ROUTINE. 

IF THE USER HAS EXPLICITLY STATED THE UNIT 
XCDKR1 IS THE ENTRY POINT IF HE IS USING THE 

0 . 


/SET SO EVAL WILL ALLOW ONLY NUMERIC RESULT 
/EVALUATE 2ND ARG (I.E, UNIT#) 

/RETURNS WITH RESULT IN AC 
/"MINUS" 

/SAVE UNIT 
/*! 2JAH8* 


/M2JAH8* 

/CHECK FOR OUT OF RANGE *12JAH8* 


/"MAXI vi" 
/GET DISK 


/GO CHECK GUT BLOCK NUMBER 

/*12JAH12* GET NEW BLOCK 

/SETUP A FAKEOUT CHECKPOINT CALCULATION 

/IN GHDOLD SO THAT IF USER WISHES TO DO 

/NAKED REFERENCES AFTER THIS HE CAN WITHOUT ERROR. 

/FREE DISK *12JAH4* 

/CLEAR OUT OUR TEMP CELL *12JAH4* 

/TIME SLICE UP? 

/NO 

/YES, LET OTHERS RUN 


/GET CURRENT DATA SWITCH SETTING 
/SEE IF XCOM WRITE SWITCH IS SET 
/ALSO STL SO EVAL SVE CAN YIELD 777777 
/DATA SW NOT SET--TREAT AS KEY ERROR 
/GET SECOND ARG (CONTENTS TO BE PLACED) 
/SAVE NEW CONTENTS FOR NOW 
/GET CORE ADDRESS 
/SAVE IT 

/"MINUS” 
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MOM PS 

100 


0 M M A 0 D 

PROCESSORS 





3444 

13567 8 

354023 



TAD 

Cm, r* 

v * * V 

/SEE IP N 0 N E X M 



8 4 45 

13570 R 

740100 

A 


SNA 





8 44 6 

13571 8 

000006 

A 


ERR 6 


/" maxIM" 



8447 

1357? R 

707762 

A 


. D6RSL 

; OB A 



/* 1 2 JAH1 8* 

8 4 48 

1 3 5 7 3 8 

7300 0 0 

A 


PLA 


/PUT MEW CONTENTS IN .A 



8 4 48 

1 3 5 7 4 R 

073577 

R 


D AC * 

ZERO , X 

/AMD MOW IMTO location 

DESIRED 

/*12JAH18* 

8 45 0 

1 3575 R 

707764 

A 


. EBREL 

? EBA 

/RESET BANK NODE 


/* 1 2 JAH1 8* 

8 45 1. 
8457 

1 3576 R 

61 35 5 0 

R 

/ 

JMP 

XCOREX 

/GO AWAY. *1204 H 4* 



8453 

13577 R 

000000 

A 

ZERO 

0 


/MUST CONTAIN ZERO, IN 

PAGE 1 

/* 1 2 JAH1 8* 

8 454 
8455 




/ 

.EJECT 
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V fj M P { 

■3 

1 0 U 

r* 

ommand PRO 

CESSORS 




8456 





/ 





8457 





/ 





8458 





/THIS IS A GENERAL ROUTINE 

USED 

8Y ALL THE OTHER XC0M FUNCTION ROUTINES 

8459 





/TO CHE 

CK OUT 

BLOCK NUMBERS 

TO 

SEE IF THEY ARE OK. 

8460 





/ 





8 461 





/ 





8462 

1 3 6 0 0 


000000 

A 

XCDIS 

0 




8 46 8 

1 3 6 0.1 

R 

040653 

R 


0 AC 

NBPNT 


/SAVE BLOCK n 

8464 






. IEPNZ 

RP-1 


/M2JAH8* 

8465 

1 3602 

R 

200247 

R 


LAC 

GUNIT 



8466 

1 360 3 

R 

741200 

A 


SNA 



/UNIT 0? 

8467 

1 3604 

R 

613612 

R 


JMP 

XCDIS1 


/YES 

8468 

1 3605 

0 

200653 

R 


LAC 

NQPNT 


/NO, NON-ZERO (JN IT- -CHECK OUT BLOCK # 

8469 

1 3606 

R 

134054 

E 


JMS* 

DISTR 


/♦12JAH12* WHAT DEVICE IS IT ON? 

8470 

1 3607 

R 

613623 

R 


JMP 

XCERR 


/CORE — NOT ON THIS UNIT — ERROR 

8471 

13610 

R 

613623 

R 


JMP 

XCERR 


/RF15 — NOT ON THIS UNIT-ERROR 

8472 

13611 

R 

613616 

R 


JMP 

XCDIS2 


/RP— SO FAR OK --GO SEE IF IN BOUNDS. 

8473 






• ENDC 




8474 

1 3612 

R 

200653 

R 

XCDIS1 

LAC 

NBPNT 


/THIS IS FOR UNIT 0? CHECK OUT BLOCK # 

8475 

13613 

R 

1 34054 

E 


JMS* 

DISTR 


/* 1 2 JAH1 2* WHAT DEVICE? 

8476 

1 361 4 

R 

61 3625 

P 


JMR 

XCDIS4 


/CORE-GO CHECK RANGE 

8477 






. I FPNZ 

RF 1 5 



8478 






JMP 

XC0TS3 


/RF — CHECK RANGE 

8479 






.ENDC 




8 4 80 






. IFZER 

RF 1 5 



8481 

13615 

R 

61 3623 

R 


JMP 

XCERR 


/NO RF IN SYS. — ERROR 

8487 






• ENDC 




848 3 






.IFZER 

RP 


/ * t 2 J A H 8 * 

9 48 4 






JMP 

XCERR 


/NO RP IN SYS. -- ERROR 

8485 






.ENDC 




84 8 6 






. IFPNZ 

RP 


/*! 2JAH8* 

8 48 7 

1 3616 

R 

740100 

A 

XC0IS2 

SMA 




8488 

13617 

R 

633600 

R 


JMP* 

XCDIS 


/POS #— DEFINITELY ON RP--GO AWAY *12JAH8* 

8 48 9 

1 3620 

R 

354024 

R 


TAD 

( 307400 


/BLOCK # TOO BIG? 

8490 

1 3621 

P 

741100 

A 


SPA 




8491 

1 3622 

R 

633600 

R 


JMP* 

XCDIS 


/NO. ALL OK. 

8492 






.ENDC 




8 49 3 

13623 

R 

140252 

R 

XCERR 

DZM 

GUI 


/ALL XCOM ERRORS COME HERE — CLEAR TEMP CELL 

8494 

1 3624 

K 

00001 3 

A 


ERR13 



/ "GLOBE" (THIS PARTICULAR MESSAGE IS SCREWY) 

8495 






.IEPNZ 

RF 1 5 



8496 





XCDIS3 

TAD 

C-. . A 


/IS THIS BLOCK ON A NON-EXISTENT RF UNIT? 

8497 






SPA 




8 49 R 






JMP* 

XCDIS 


/NO, GO AWAY 

8499 






JMP 

XCERR 


/YES! ERROR 

8500 






.ENDC 




8 501 

1 3625 

R 

354025 

R 

XC0IS4 

TAD 

C * . . D 


/CHECK AGAINST MAX CORE BLOCK # 

8502 

1 3676 

o 

7401 0 0 

A 


SMA 




8503 

1 3627 

P 

61 3623 

p 


JMp 

XCERR 


/TOO BIG — ERROR 

8504 

1 3630 

R 

354002 

R 


TAD 

C..D 



8505 

1 36 3 1 

R 

353635 

R 


TAD 

. .BM 


/CHECK TO SEE IF TOO SMALL (I.E. IN SYS AREA) 

8506 

1 36 32 

R 

741 100 

A 


SPA 




8507 

1 3633 

R 

613623 

R 


JMP 

XCERR 


/TOO SMALL 
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COMMAND PROCESSORS 


v U M PS 10 0 


8508 

13634 R 633600 R 


JMP* 

XCDIS 

/ALL OK -- GO AWAY 

8509 


/ 




8510 


/ 




8511 

13635 R 000000 A 

. .BW 




8512 


/ 




851 3 



.EJECT 





PAGE 221 


MUMPS 100 


COMMAND PROCESSORS 


8514 . LTORG 

1 3 6 36 R 00 7 00 0 A * b 

.1 36 37 R OtOOOO A *L 

1 3 6 4 0 ft 0 2 0 0 0 0 A * L 

13641 R 030000 A * L 

13642 9 040000 A *L 

1 3543 R 050000 A ¥ L 

1 3644 R 250600 4 * L 

13645 R 007777 A * L 

13646 R 777700 A *L 

1 3647 R 000160 A *L 

1 3650 R 600000 A * L 

13651 R 710000 A *L 

13652 ft 570000 A *G 

13653 R 000040 A * L 

13654 R 001075 R *L 

13655 R 000037 A * l> 

13656 ft 777727 A *L 

1 3657 R 077777 A 

1 3660 R 001.534 R *L 

1 3661 R 700000 A *L 

1 3662 R 400000 A *L 

13663 R 200000 A *L 

1 3 6 6 4 R 100000 A * L 

1 3665 R 000 301. R *L 

1 3 6 66 R. 0 0 4 0 00 A * L 

13667 R 000001 A *L 

13670 R 004377 A * L 

13671 P 000506 A *L 

13672 R 177777 A *L 

13673 R 003657 R *L 

13674 R 741000 A *L 

13675 R 740000 A *6 

13676 R 777477 R * L 

13677 R 000135 R * L 

13700 R 001007 9 40 

13701 R 000175 A *L 

13702 R 000077 A *L 

1 3703 R 000031 A *L 

13704 o 000004 A *0 

13705 R 000002 A *L 

13706 R 777773 A * L 

13707 ft 623174 R * L 

13710 R 001000 A * L 

1 371 1 R 177313 R *L 

13 712 ft 7 7 7 7 7 6 A * L 

13713 R 000034 A *L 

13714 R. 0001 77 A *L 

13715 R 0001.44 A * L 
1.3716 R 00 001 5 A * L 
13 717 R 0 0 0 1 3 4 A * L 
13720 ft 000014 A *L 
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M IJ M P S 


1 0 0 


C0-M-4AND PROCESSORS 


3 37 2 1 

R 

000023 

ft 

* Li 

1 372? 

o 

777745 

ft 


1 3723 

R 

000100 

ft 

*L 

1 3 7 2 4 

R 

000033 

ft 

* l 

1 3 7 25 

R 

777640 

ft 

*L 

1 3726 

R 

777726 

A 

♦ L 

1 3727 

R 

004767 

R 

*L 

1 37 30 

R 

004765 

R 


1. 37 31 

R 

004764 

R 

*L 

1 3 7 3 2 

P 

004704 

R 

*L 

1 3733 

R 

000073 

ft 

*L 

1 37 34 

R 

603606 

R 


1 37 35 

p 

377777 

ft 

*L 

1 37 36 

R 

004706 

R 

*L 

1 37 37 

R 

777752 

ft 

*L 

1 3740 

R 

777765 

ft 

£ L 

1 3741 

R 

777777 

ft 

* L 

1 3 7 4 2 

R 

000056 

A 

* L 

1 3743 

R 

000017 

A 

* L 

1 3744 

R 

000003 

A 


1 37 45 

R 

000006 

ft 

*L 

1 3746 

R 

000060 

A 

* L 

1 3747 

R 

004705 

R 

* L 

1 3750 

R 

004703 

R 


1 3751 

R 

000035 

A 

* L 

1 375? 

R 

000045 

A 

* L 

1 3753 

R 

000050 

A 

*L 

1 3754 

R 

000051 

ft 

* L 

1 3755 

R 

000042 

A 

* L 

1 3756 

R 

500000 

A 

*b 

1 3757 

R 

000005 

A 

* L 

1 3760 

R 

000047 

A 

* L 

1 3 7 o 1 

R 

000074 

ft 

* L 

1 3762 

R 

000075 

ft 


1 3763 

H 

000076 

ft 

* L 

1 3764 

R 

000072 

ft 

* L 

1 3765 

R 

000046 

ft 

*L 

1 3766 

R 

000041 

A 

* L 

1 3767 

R 

000054 

A 

* L 

1 3770 

p 

000043 

ft 

*L 

1 377 1 

R 

600413 

R 

♦ L 

1 3772 

R 

000062 

ft 

♦ L 

1 37 7 3 

R 

777715 

ft 

*L 

1 3774 

R 

1 77302 

R 

♦ L 

1 3775 

R 

000332 

P 

*L 

1 377b 

R 

000055 

A 

*L 

1 3777 

R 

0 00053 

A 

♦ L 

1 4000 

p 

000044 

ft 

* L 

14001 

R 

000036 

ft 

* L 

1 4002 

R 

001600 

ft 

*L 

1 4003 

R 

000052 

ft 

♦ L 

1 4004 

R 

000057 

A 

*L 
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f^U^PS 

1 00 


1 4 0 0 5 

0 

770000 


1 4 0 06 

K 

377700 


1 4007 

p 

010105 


14010 

R 

010112 


1 4011 

R 

477777 


1401 2 

R 

037770 


14013 

R 

000025 


14014 

R 

000027 


14015 

R 

000030 


14016 

R 

000277 


14017 

R 

000200 


1 4020 

R 

000012 


1 4021 

R 

013050 


1 4022 

R 

777775 


14023 

R 

620000 


1 4024 

R 

307400 


1 4025 

R 

776200 

8 515 



000750 


1 4041 

R 

014041 


1 4042 

R 

014042 


1 4043 

R 

014043 


1 4 0 4 4 

R 

014044 


1 40 45 

P 

014045 


1 4046 

R 

014046 


14047 

R 

01 4047 


1 4 0 5 0 

R 

014050 


1 4051 

R 

014051 


1405? 

R 

01 4052 


1 405 3 

R 

014053 


1 4054 

R 

014054 


i 4055 

R 

014055 


1 4056 

K 

014056 


1 4057 

R 

014057 


1 4 0 6 0 

H 

014060 


1 4061 

P 

014061 


1 406? 

R 

01406? 


1 4063 

R 

014063 


i 40 64 

R 

014064 


1 4065 

R 

01.4065 


1 4066 

R 

014066 


1 4067 

R 

01 4067 


1.4070 

R 

01,4070 


1 407 1 

R 

014071 


1 407 ? 

p 

014072 


1407 3 

R 

014073 


14 0 7 4 

R 

014074 


1 4075 

P 

01 4075 


1 4 0 7 6 

• t > 

014076 


1 4077 

R 

014077 


1410 0 

k’ 

014100 


14101 

R 

014101 


1410 2 

o 

014102 


COM M AMD PROCESSORS 

A *L 
A * L 
R # L 
R * L 
A *L 
A *L 
A *L 
A *L 
A * L 
A * L 
A * 0 
A *L 
R * L 
A * L 
A *L 
A *L 
a *l 

R , END y a LOCK 

E *E 

e *e 

E *E 
E * E 
E *E 
E * E 
£ * E 
E *E 
E *E 

M* rfC C' 

£ *E 
E * E 
E *E 
E * E 
E *E 
E * E 
E * E 
E * E 
E *E 
E *£ 

e *e 

^ E 
6 * E 
E * E 
E * E 
E *£ 

E *E 
E * E 
E * E 
E * E 
E * S 
E ^ E 
E * E 
E *E 
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VU'IPS 


100 

C 

OM/AND PROCESSORS 


1410 3 

R 

014103 

E 

$ £ 


14104 

R 

014104 

E 

* E 


141 05 

ft 

014105 

E 

* £ 


1 41 06 

R 

014106 

E 

* E 


1 41 07 

R 

014107 

E 



14110 

R. 

014110 

E 

*E 


14111 

R 

014111 

E 

*E 


14112 

R 

014112 

e 

* g 


3.4113 

R 

014113 

E 

* £ 


14114 

R 

014114 

£ 

T E 


14115 

R 

014115 

E 

* £ 


14116 

r*» 

w 

014116 

E 

Ob- rr» 

T 


14117 

R 

014117 

E 

* s 


1 4120 

R 

014120 

E 

* £ 


14121 

R 

014121 

E 

* E 


14122 

R 

014122 

E 

>Ar rp 


1 4123 

R 

014123 

E 

* £ 


1412 4 

R 

014124 

E 

*£ 


14125 

R 

014125 

E 



1412b 

R 

014126 

E 

* E 


14127 

R 

014127 

E 

* E 


1 41 30 

R 

014130 

E 

♦ E 


14131 

R 

014131 

E 

*£ 


14132 

R 

014132 

E 

* £ 


1 4133 

R 

014133 

E 

jjt £ 


1413 4 

R 

014134 

E 

$ E 


1 4135 

R 

01.41 35 

E 

*E 


1413 6 

R 

014136 

E 

* E 


1 41 37 

R 

014137 

E 

♦ E 


14140 

R 

014140 

E 

*E 


14141 

ft 

014141 

E 

*E 


141 4? 

R 

014142 

E 

*e 


14143 

R 

014143 

E 

* E 


1 41 44 

R 

014144 

E 

*£ 


14145 

R 

014145 

E 

* E 


14146 

R 

014146 

E 

$ E 


141 47 

R 

014147 

E 

* E 


J 41 50 

R 

014150 

E 

*e 


1 4151 

R 

014151 

E 

* E 


1 415? 

R 

01415? 

E 

f £ 


14153 

Q 

014153 

E 

*£ 


14154 

R 

014154 

E 

* E 


1 4155 

R 

014155 

E 

♦ E 


14156 

R 

014156 

E 

* E 


14157 

p 

014157 

E 

*E 


14160 

R 

014160 

E 

* 5 


14161 

R 

01 4161 

E 


P R D G > 4 K 







SIZE 

:=1 4162 


2 ERROR LINES 
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M UMP$ CROSS REFERENCE 


AC 

001.56 

9 8 5* 
3057 

2215 

2223 

2242 

2408 

2691 

2692 

2734 

A C S W R 

00607 

1 28 3* 

2151 

2159 

2164 

2179 

8378 

8434 


ACS WRO 

0 066 2 

284 

1354* 

2177 

2270 





ACSWRX 

0 0 61 0 

1284* 

2175 







ACTEMP 

00217 

284 

1 037* 

2496 

2822 

3717 

37 38 

3748 

3764 



3767 

3770 

3778 

3811 

3824 

38 3 3 

38 37 

3848 



3852 

3857 

3872 

3875 

388 1 

3883 

5759 

6693 



6696 

6697 

6701 






AIjTMOD 

0 3 4 3 4 

442 

303 3 

3 26 4 

3328* 





APT 

000001 

1 1 1 

112* 

114 

239 

328 

444 

452 

766 



767 

1248 

1574 

15 8 5 

1738 

1797 

1804 

1992 



2022 

2079 

2201 

2312 

2335 




APPARR 

005621 

4746 

4 7 9 3 * 







APPEND 

04516 

3951 

4014* 







APPFP 

05641 

4749 

4817* 

4940 






APPNUM 

05563 

4757* 

494.5 







APPSTR 

05575 

475 3 

4770* 

4944 






A R R A y 1 

05523 

4714* 

4723 

4736 






APR A y 2 

05535 

4716 

47 27* 







ARRSTR 

05661 

4 8 0 0 

4 8 3 5 * 







A SEMI 5 

05 32 3 

4524 

4528* 







ASK 

1147 7 

3459 

7190* 







ASSFM 

05 30 4 

284 

2616 

2942 

4512* 

45 39 

4563 

4581 

7197 



7 42 1 

7 7 8 4 

8114 

8154 





ASSENT 

0 5 3 1 6 

4523* 

4534 







ASSEN2 

05327 

4527 

4532* 







ASSEM4 

05361 

4520 

4565* 







A S S E v ' 5 

05326 

4517 

4531* 

4 566 






AVAR 

00136 

441 

957* 

975 

3017 





RACK 

05451 

466 1 * 

4681 

4685 

4689 





BACK! 

05452 

4562* 

4672 







BACKS A 

10536 

6593 

661 1 * 







BACK5B 

10 514 

6594* 

7039 







BACK5C 

1052 5 

6597 

660 3* 







BAKCHR 

000031 









BAND 

06363 

522 3 

5236* 







BEGIN 

03460 

284 

3352* 

339 1 

3398 

3407 




BEGIN 1 

0 3 5 0 0 

3369* 

3379 







REGTC1 

1 4041 

3 1 0 

933 

1567 






BEG 1 

0 3461 

3 35 3* 

3363 







BEG? 

0 347 4 

3 361 

3365* 







BEG 3 

03476 

3359 

3367* 







BED M 

06416 

5227 

5229 

5231 

5276* 





BKCH AR 

0024? 

284 

1056* 

25 34 

2860 

4461 

4476 

5156 

5715 



581 0 

5817 

5820 

5840 

5876 

5922 

5939 

596* 



6 38 4 

6404 







BLOCK 

000100 

211* 

1103 

2703 

8345 

8346 




BOD L 

06203 

284 

2562 

2R«8 

5113* 

5151 

5258 

5260 

5265 



5280 

7599 

7674 






BOOLE 

00260 

28 4 

107 6* 

2 5 66 

2892 

5131 

5137 

5197 

521 4 

800 LG 

0026? 

107 8* 

2568 

2894 

5132 

5139 

5199 

5212 


BODLL 

00256 

1 074* 

2564 

2890 

5130 

51 35 

5195 

5210 




P A G F 
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BOOL MM 

06240 

514 2* 

5147 







80QLX 

14042 

310 








SOR 

06367 

5225 

5243* 







BPWRIT 

00723 

40 8 

425 

1401* 






BREAK 

11536 

3 46 0 

7229* 







B R S A K 1 

11552 

7238 

7242* 







BS r JM 

00232 

1 048 * 

2518 

2844 

5116 

5153 

5246 

5256 

5267 



5279 








B T £ R M 

00233 

1049* 

2520 

2846 

5118 

5152 

5237 

5244 

5257 



5 266 

5277 







BUFF 

00134 

285 

952* 

2708 

3380 

3649 

3652 

3943 

4371 



4393 

7347 

8 305 






BUFFI 

0 013 2 

285 

950* 

1377 

2704 

3376 

3382 



BUFF2 

001 3 3 

356 

951* 

2706 

3251 

4076 

4771 

4773 

4824 



4836 

48 38 

4987 

4989 

5167 

5707 

5980 

5995 



6056 

b06 1 

6064 

6785 

6792 

6860 

6867 

7203 



7215 

7280 

7882 

7892 

7927 

7980 

7983 

7993 



8075 

8090 

8120 

8132 

8139 

8142 

8198 


BUM IT 

00250 

285 

1062* 

2546 

2872 

8382 




8 V A L 

00234 

1050* 

2522 

2848 

5108 

5115 

5144 

5154 

5218 



5220 

5236 

5238 

5243 

5247 

5255 

5261 

5268 



5270 

5276 







CALL 

100000 

527* 

3284 

3 330 

3339 

3341 

3343 

3368 

3370 



3 378 

3 386 

3387 

3397 

3403 

3404 

3405 

3413 



3414 

3424 

3434 

3437 

3444 

3558 

3561 

3720 



372 1 

3823 

38 36 

3841 

3843 

3845 

3851 

3856 



386 1 

3863 

3880 

3897 

3898 

3904 

3908 

3978 



3981 

3985 

3990 

3995 

4009 

4018 

4027 

4039 



4092 

410 8 

4429 

4459 

4468 

4471 

4479 

4482 



4515 

4516 

4532 

4533 

4543 

4547 

4555 

4558 



4562 

4571 

4574 

4577 

4581 

4587 

4595 

4611 



4615 

47 60 

4782 

4804 

4820 

4847 

4924 

4973 



4999 

5119 

5124 

5126 

513 3 

5135 

5137 

51 39 



5150 

5160 

5172 

5176 

519 3 

5195 

5197 

5199 



5200 

5201 

5221 

5254 

5260 

5264 

5271 

5286 



5289 

5294 

5 302 

5305 

5320 

5333 

5335 

5340 



5348 

5353 

5360 

537 1 

5373 

5 3 P 1 

5383 

5398 



5400 

5414 

5416 

5451 

5454 

5 466 

5469 

5494 



5506 

5511 

5533 

5538 

5543 

5546 

5555 

5556 



5567 

5568 

5594 

5596 

5606 

5610 

5626 

5628 



5635 

5637 

5640 

5719 

5724 

5746 

5750 

5751 



5758 

5761 

5762 

5778 

5779 

5802 

5826 

5870 



5901 

5906 

5920 

5929 

5937 

5947 

5952 

5958 



5^6 7 

6025 

6027 

6039 

6041 

6045 

6076 

6081 



6090 

6107 

6110 

6119 

6120 

6130 

6151 

6155 



6157 

6169 

6173 

6206 

6207 

6216 

6217 

6221 



6 2 2 5 

6236 

6238 

6246 

6250 

6253 

6259 

6262 



6265 

6279 

6280 

6293 

6294 

631 9 

6323 

63 38 



6343 

6 3 45 

6348 

6351 

6360 

6367 

6370 

6375 



6382 

6393 

6396 

b 4 1 1 

6422 

6424 

6432 

6442 



64 4 6 

645 3 

6455 

6458 

6475 

6485 

6524 

7190 



7194 

71 97 

7205 

7209 

7218 

7221 

7230 

7249 



7252 

7266 

7274 

7284 

7285 

7292 

7297 

7306 



n o o o n c 2 
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MUMPS 




7 32 7 

7335 

7 336 

7349 

7352 

7 358 

7374 

7378 



7 379 

7384 

7407 

7409 

7415 

7421 

7429 

7435 



7438 

7445 

7451 

7454 

7460 

7466 

7470 

7476 



748b 

7491 

751 1 

7545 

7557 

7566 

7571 

7573 



7579 

7585 

7588 

7595 

7599 

7604 

7611 

7624 



7628 

7647 

7656 

7674 

7679 

7693 

7698 

7707 



7711 

7734 

7744 

7 7 68 

7777 

7780 

7783 

7784 



7791 

7792 

7824 

7829 

7830 

7840 

7842 

7843 



7858 

7863 

7871 

7895 

7900 

7913 

7917 

7926 



7933 

7943 

7949 

7949 

7952 

7959 

7961 

7969 



7973 

7982 

7998 

8003 

8004 

8011 

8014 

8035 



8048 

8061 

8068 

8078 

8080 

8081 

8093 

8095 



8096 

8100 

8103 

8106 

8111 

8114 

8122 

8130 



9150 

8153 

8154 

8160 

8169 

8175 

8180 

8181 



8187 

8190 

819 3 

8196 

8203 

8205 

8207 

8210 



9216 

8238 

8245 

8251 

8253 

8272 

8276 

8278 



8 28 0 

8282 

8288 

8293 

8295 

8297 

8298 

8302 



8317 

8321 

8 327 

8328 

8330 

8332 

8334 

8335 



8336 

8351 

8360 

8 3fo2 

8384 

8402 

8414 

8438 

CALLP 

14043 

310 

3461 







CALL7 

14044 

310 

7639 







CALL71 

1 40 4 S 

310 

7638 

7644 






CDSTAT 

00641 

511 

1 332* 







C F n m i. 

1 4046 

310 

3245 







CHARI 

04770 

285 

344 

2570 

2896 

3168 

3185 

3219 

3233 



4230* 

4 2 46 

4247 

4248 

5286 

5288 

5291 

5302 



5304 

5308 

5340 

5353 

5381 

5414 

5454 

5469 



5594 

7858 

8203 






C H A R 2 

05014 

285 

2572 

2898 

4259* 

4275 

4276 

4277 

5289 



5294 

5305 

5 333 

5 348 

5352 

5355 

5360 

5371 



5377 

5391 

5398 

5413 

5424 

5451 

5453 

5457 



546o 

5468 

5472 

5635 

6025 

7863 

787 1 

7913 

CHECK 

05201 

285 

2574 

2900 

4412* 

4438 

4444 

5465 

5474 



7335 

7 378 

7491 

7948 

8003 




CHECK1 

05217 

4422 

4426* 

4443 






CHECK2 

05234 

4415 

4425 

4439* 






CHKARR 

006011 

4937 

4947* 







CHKCUT 

11411 

7068 

7087 

7115* 






CLAC 

641000 

563* 

4153 

4157 

4244 

4273 

5990 



CLKCNT 

00174 

286 

1014* 

2106 

2107 

2109 

2450 

2776 


CLFm'mg 

01476 

2 1 « 9 

2194* 







CLKHZ 

000074 

163 

164* 

259 

2115 

2230 




CLKTMP 

01532 

2231* 








CLOCK 

14047 

319 

2078 

2118 

2122 

3015 




CLHCK1 

01456 

2114 

217 2 

2175* 






CLOCK2 

01416 

2134 

2142* 







CLOCK3 

01523 

2213 

2218* 







CLOCK 4 

01454 

21 63 

2173* 







CLOCKS 

01441 

2154 

2162* 







CLOCK 6 

01425 

2124 

2149* 







CLOF 

700004 

586* 

2095 







CLOK 

01342 

1640 

2095* 







CLOK1 

01 361 

2104 

2110* 
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C LON 

700044 

587=? 

2101 


CLOSE 

10036 

2 S 6 

6206* 


CLOSED 

10040 

6172 

620 8* 

6224 

CLOSE1 

10050 

286 

6 2 1 6 * 


CLOSE 2 

10 0 5 1. 

6217=? 

6227 


CLOSE 3 

10055 

61 96 

6221* 


CLRCHR 

000037 




CLSF 

700001 

585=? 

1638 

2092 

COMB U F 

000031 

2 2 4=? 

110 3 

2705 

COMMAiM 

000111 

214 

215* 

217 



224 

3393 

7188 

COM'S w 

00576 

36 7 

1244* 

2071 

CGNT 

06621 

286 

2560 

2886 



3689 

3691 

3694 



5445=? 

5452 

5467 

COMTAI 

06452 

5184 

5319* 


CONTI 

06627 

5451=? 

5484 


COMT2 

06632 

5454=? 

5459 


CGNT3 

06646 

5466* 

5473 


CONT4 

06671 

5455 

5470 

5485* 

CORE 

000070 

261 

672 

677 

CRFTL 

0071 5 

286 

1 388* 


C R S I 

706721 

650=? 

1597 


CRSKP 

706701 

653* 

1760 


CRTRUB 

ooooot 




CRKX . 

000000 

13 2* 

136* 

145* 



1188 

1214 

1 268 

CR038 

000000 

1 30 

131* 

138 

CR15 

000000 

134 

J 35* 

139 

crFxr 

12552 

7832 

7839* 

7954 

err 

01057 

1731* 



DABSPT 

00706 

286 

1381 * 


DA3SXF 

1 4050 

310 

926 

930 

DATE 

14051 

319 

3020 


DATE. 1 

1405? 

319 

2129 

2135 

DATE. 2 

14053 

319 

2127 

2140 

DBK 

703304 

2033 

2193* 

2202 

OCGUMT 

000012 

121 

1 22* 

1246 

DCO 1 

000005 

253 

363 

377 



395 

832 

835 



85 3 

856 

959 



877 

1407 

1419 



1681 

1690 

1699 



1892 

1914 

1936 

DOTS W 

00574 

1 242* 

2044 

2058 

D E C E R 3 

04164 

3722 

3752 

3761 * 

DECER4 

04167 

3741 

3764* 

3788 

OECER5 

04173 

3745 

3767* 

379? 

DECER6 

04203 

37 37 

3774* 


DEC IN 

04103 

286 

2608 

2934 



4787 

4827 

4830 



4994 

4997 

5003 

DEC NLJ M 

0 4121 

3723 

37 27* 



3252 

3253 




218* 

220 

221 * 

223* 

223 

2076 

2173 




3628 

3637 

3643 

3644 

3681 

4311 

5486 

4315 

4317 

4320 

5320 


254 

507 

796 

799 

1162 

1406 

1469 

1 472 



144 

1593 




144 

1759 





2138 

2148 

3022 



2142 

2146 

3024 



2313 

2336 




1399 





380 

383 

386 

389 

392 

838 

841 

844 

847 

850 

862 

865 

868 

871 

874 

1422 

1643 

1 654 

1663 

1672 

1708 

1805 

1826 

1848 

1870 

1958 

3335 




2153 

2161 





3795 





3713* 

3797 

3799 

3898 

4778 

4843 

4900 

4915 

4923 

4953 

5028 

5802 
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ERE N C E 






OECHUT 

04255 

285 

2610 

2936 

3831* 

3854 

3864 

3874 

38 8 4 



5626 

8196 

8251 

8276 

8282 

8293 



oecpr 

04151 

3725 

3750* 







OECPTO 

0 4156 

373 1 

3755* 







OECP53 

04176 

3766 

3769* 







QECR55 

04201 

3747 

3772* 







DEC 2 

04235 

2624 

2950 

3810* 

3825 

3841 

3 8 43 

3845 

3 851 



3 8 61 

3863 







DEF I M 

06460 

51 74 

5328* 







DEFNUM 

05571 

47 6 3* 

4811 







DEFSTR 

05614 

47 85* 

4856 







DFFO 

06465 

5 3 3 3* 

5351 

5 380 

5437 





DEF 1 

065 0 4 

5 3 39 

5348* 

5356 






DEFIO 

06570 

5336 

5413* 







DEF 1 1 

06606 

5415 

5427* 







DEF 11 A 

06613 

5430 

5432* 







DEF 1 IB 

06617 

5431 

5 4 3 6 * 







DEF 1 2 

06571 

5414* 

5426 







DEF 2 

06522 

5337 

5 36 8* 







DEF21 

06533 

5 374 

5377* 







DEF 3 

06515 

5354 

5360* 

5364 

5404 





DEF 4 

06534 

5378* 

5393 







OEF5 

06554 

5363 

5 382 

5398* 

5401 

5402 




DEF6 

06563 

5342 

5405* 







DEGRAD 

0067 3 

297 

1 365* 







del 

03405 

3268 

3 3 00* 







QELELE 

006104 

5017* 








DELELO 

06110 

5020 

5024* 







OELEL1 

06120 

503 3* 

5044 







DELEL2 

06113 

5023* 

506 0 







DELEMD 

05771 

4913 

4923* 







DELETE 

05746 

4898* 

5 0 4 8 







DELET1 

05747 

4871 

4899* 







DELET2 

05750 

4886 

4900* 

5077 






DELET3 

05751 

4902* 

5036 







QELMQV 

05757 

491 2* 

4921 







DEL DEL 

06141 

5058* 

5068 







DELNL1 

006144 

5057 

5061* 







DEL M V A 

06154 

5075* 

5079 

5083 






DEL 2 

0 341 4 

3303 

3307* 







OF LB 

03421 

3310 

3312* 







0FL4 

03425 

3311 

3316* 







DEV 

000062 

254* 

672 

673 

5582 

5656 

5665 



DIGIT 

07306 

5726 

5738 

5802* 






DIRECT 

03527 

3 388 

3402* 







DIRPTR 

00676 

287 

1 37 3* 







DISL3P 

00264 

287 

1080* 

2578 

2904 





D I SPAT 

0 3535 

287 

2576 

2902 

3405 

3411* 

3454 

3455 

72 31 



7 25 3 

7274 

7 3 06 

7333 

7636 

7642 

8043 


DISPT1 

03552 

3424* 

3431 







DISPT2 

03563 

3433* 

3436 







DTSPT 3 

03550 

3415 

3422* 







DISTR 

14054 

310 

8469 

8475 
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OT VO 

07354 

5843 

5851 * 


OJ V2 

07 364 

5853 

5858* 


OIV3 

07370 

5 85 9 

5861* 


DKCHK 

00645 

1 339* 

7 0 8 5 


DLAH 

707064 

620* 



0 L A L 

707024 

61.9* 



DLOK 

707202 

624* 



DL2 

14055 

311 

7649 


DMP 

14056 

311 

1569 


DM POLO 

14057 

311 

6133 

6210 

DO 

11553 

1 40 

3462 

7246* 

DOLLAR 

07236 

5730 

5750* 


OOSTR 

11611 

7 26? 

7 2 8 0* 


DOSTR2 

1162? 

7287 

7292* 


DOO 

11555 

7248* 

7338 


DO l 

11624 

7265 

7297* 

7646 

DO 1 . 1 

11625 

7298* 

7324 


D02 

11635 

7306* 

7640 


003 

1 1 662 

7276 

7293 

7307 

DPCA 

706344 

597* 



QPCS 

706324 

601* 



DPL A 

706304 

598* 



OPLF 

706464 

599* 



QPRSA 

706312 

591* 

898 


DPRS3 

706332 

592* 

895 


DPSA 

706321 

594* 



D PSP 

706361 

595* 

893 


DPSF 

706301 

600* 

1622 


DPS J 

706341 

59 3* 

890 


QPWC 

706364 

596* 



iDRAH 

707062 

618* 



ORAL 

70702? 

617* 



f\ r ^ ^ 
Out U 

707021 

616* 



DSCD 

707242 

625* 



DSCF 

707041 

621* 



DSCM 

707044 

623* 



DSF X 

70704? 

622* 



OSKACT 

00577 

287 

1245* 

2303 



6134 

621 1 

7043 

DSKRFF 

00704 

287 

1 379* 

2700 



6714 

6725 

6887 

OSKCNT 

00600 

287 

1246* 

2199 

DSKRDE 

1 4060 

311 

6995 

7014 

DSKREP 

007 16 

1 389* 

2198 

3516 

DSKWRT 

1 4061 

311 

7006 

7029 

DSRS 

707262 

626* 

908 


DSSF 

707001 

6 1 5 * 

906 

1617 

DT A 

000002 

254 

437 

77? 



1 1 78 

1203 

1204 



2637 

2962 

3152 

QTAB 

03607 

3422 

3 459* 


OTARLE 

03573 

288 

3444* 

5585 



7669 

7687 

7778 


7034 7763 8387 


7318 7326* 7653 


2342 

7764 

2367 

8422 

3034 

3 5 0 6 

3520 

6587 

6603 

6608 

6651 

6709 

7123 

3514 

7142 

3517 

7173 

7191 

7184 


775 

1094 

1151 

1152 

1177 

1250 

1 404 

1 462 

1465 

1 601 

3159 

3160 

3318 

3527 


6213 

6215 

7 3 39 

7350 

7 382 

7957 

7962 

8007 

8057 

8184 
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CROSS REFERENCE 




8425 

8427 







OTABJ 

03574 

288 

3445* 

7682 

77 7 1 

7 7 95 




OTACT 

1406? 

450 

3541 

3545 






OTATST 

03602 

288 

3418 

3448 

3451* 

7563 

7 678 

7686 


DTSSZ 

000400 

18 4 

1 85* 







DTBUFF 

00666 

442 

1 360* 







OTC A 

707541 

611* 








OTOF 

707601 

610* 

1608 







OTEP 

707561 

b 0 8 * 

1605 







DTERRA 

00624 

442 

1309* 







OTERRB 

00625 

443 

1310* 







DTERRS 

00626 

443 

1 3 1 1 * 







DTI M 

14063 

450 

1205 







DTI m 1 

1 4064 

450 

3319 







DTJMPI 

03427 

44 3 . 

3319* 







DTJMpQ 

03203 

443 

3153 

3154* 






DTLA 

707545 

606* 








DTDUT 

14065 

450 

1179 







DTOUT1 

1 4066 

450 

3154 







OTR A 

707552 

607* 








0 T R B 

707572 

609* 








OTTR AM 

00603 

443 

773 

1 251 * 






DTMHOt 

00403 

441 

1153* 







DTK A 

707544 

605* 








DUMMY 

000005 

172 

173* 

254 

1169 

1170 

1195 

1196 

1221 



1222 

140 8 







DVHAMG 

01713 

288 

2387* 







DVHMG1 

01721 

288 

2393* 







D X K E V' 

14067 

31 9 

8352 







EBCDIC 

000001 









ELSE 

12362 

7346 

7684* 







EMERG 

00570 

1234* 

2306 

3 05!? 






END 

00167 

288 

1 0 0 8 * 

2440 

2766 

3615 

3645 

3651 

3653 



3 66 8 

3686 

3950 

3965 

4002 

4036 

4101 

4309 



4376 

4400 

4441 

5614 

7317 

7367 

7391 

8310 

EQUAL 

06423 

5186 

5286* 

5292 






EQUAL1 

05501 

4665 

4692* 







EQUAL/? 

06433 

5287 

5294* 







ERASE 

11677 

3463 

7 342* 







ERASE1 

11710 

7343 

7 35 2* 

7 381 






ERASE 3 

117 5 0 

7357 

7394* 







ERASE4 

11754 

7 388* 

7398 







ERASE5 

11725 

7364* 

7400 







ERASES 

117 36 

7 368 

737 3* 

7 392 






ERMQO 

0 4616 

2657 

8001 

298 3 

4090* 

4110 

4112 

7938 

7982 

7988 

ERROR 

oooooo 

530* 








ERRORO 

1 4070 

311 

1565 







p:rrop2 

14071 

311 

7240 







ERR 1 

000001 

534* 

3654 

3688 






ERR! 0 

000010 

541* 

4590 

5829 

6304 

7514 

7742 



ERR 11 

000011 

542* 

4592 

5900 

5973 

7517 




ERR 1 2 

000012 

543* 
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ERR t 3 

000013 

5441 s 

6176 

6228 

6555 

7111 

7696 

7710 

7725 



7748 

8494 







ERR14 

000014 

5451= 

3903 

7976 






ERR1 5 

000015 

546* 

3941 

4377 

4401 

7828 

7971 

8079 

8094 

ERR! 6 

000016 

547* 

4310 

4346 






ERR 1 7 

000017 

548* 

4702 

4705 

4796 

4880 

4897 

4905 

4950 



5022 

5064 

6640 






ERR7 

000002 

5 35* 

7241 







ERR20 

000020 

549* 

6565 







ERR 21 

000021 

550* 

6650 







ERR 2 2 

000022 

551* 








ERR23 

000023 

552* 

30 4 3 







E R R 2 4 

000024 

553* 

7089 







ERR25 

000025 

554* 








ERR26 

000026 

555* 








F.RR27 

000027 

556* 

1 189 

1197 

1209 

1212 

1223 



ERR 3 

000003 

536* 

3392 

3416 

3421 

3450 

3535 

3907 

4518 



4521 

4535 

4561 

5189 

5232 

5 3 34 

5349 

5361 



5372 

5375 

5376 

5399 

5540 

5739 

5753 

5754 



5764 

5781 

5903 

5955 

6080 

6121 

6156 

6218 



6249 

62 8 2 

6296 

6346 

6451. 

6468 

6473 

7192 



7196 

7286 

7288 

7424 

7427 

7550 

7578 

7701 



7718 

7729 

7822 

7835 

7845 

7861 

7866 

8082 



8097 

8113 

8157 






ERR 30 

000030 

557* 








ERR31 

000031 

558* 

5676 







ERR 3 2 

000032 

559* 

616 1 

6 364 

8356 

8 381 

8437 



ERR 3 3 

000033 

560* 








ERR4 

0 0 0 0 0 4 

537* 

3406 

3475 

3477 

3485 

3488 

3489 

6106 



7247 

7593 

7623 

7652 

7692 

8013 

8066 

8085 



8149 








ERRS 

000005 

538* 

4551 

5513 

5653 

5951 

7354 

7826 

7 97 3 



832 3 

8404 

8443 






ERR6 

000006 

539* 

5658 

5863 

5886 

5913 

5993 

6034 

6414 



6421. 

7527 

7 90 7 

7924 

8413 

8446 



ERR 7 

000007 

540* 








ER5 5 

0 4631 

4101* 

4106 







ER6 

04637 

4102 

4107* 







ESTR 

12657 

7897 

7899 

7909* 






ESY^BO 

06173 

5090 

5095* 







EVAL 

07163 

288 

2598 

2924 

3423 

3426 

3428 

3440 

4460 



4468 

4477 

4547 

5126 

5201 

5511 

5694* 

5894 



5921 

5929 

5938 

5947 

5965 

6067 

6082 

6250 



638 3 

6 39 3 

6405 

7218 

7249 

7352 

7429 

7566 



7571 

7579 

7624 

7656 

7660 

7666 

7824 

7969 



8014 

8169 

8193 

8207 

8321 

8360 

8402 

8438 

EV AFiO 

07174 

5704 

5711* 







EVAR 

00152 

28 8 

972* 

975 






EXEC 

001644 

2 301 

2 3 34*'? 







EXECt 

01672 

2344 

2359* 







EX EC 2 

0167 7 

2341 

2364* 







EXEC 3 

017 04 

2363 

2369* 







EXEC4 

001705 

2346 

2356 

2 361 

2366 

2370* 
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EXIT 

01075 

289 

442 

1790* 

2049 

2077 

2157 

2185 

EXTSr 

05060 

4297 

4 3 0 8 * 






FILE 

14072 

311 

7412 






FILES 

14073 

312 

7406 






FINRPL 

12700 

7916 

7926* 






FLOAT 

0021? 

356 

1031 * 

2485 

2811 

8166 

8171 


FL0AT1 

05723 

487 4* 

4892 






FL0AT2 

05735 

4877 

4884* 






FMQNEY 

000001 

150 

.151* 

153 

352 

1029 

2480 

2805 



4552 

4675 

4686 

4747 

4794 

4813 

4873 



4929 

4934 

4938 

4948 

5018 

5051 

5054 



5080 

5563 

5700 

6084 

6089 

6525 

6636 



8170 

8256 

8 2 S 4 





FNDARR 

005740 

4862 

4889* 






F N D E L E 

0 6076 

4718 

47 29 

501 1* 





FNDSVM 

05707 

4699 

4860* 






FOLLOW 

06436 

5188 

5302* 

5313 





FOR 

11772 

3464 

7405* 






FORDO N 

12201 

7556* 

7607 






FORI F 

1 2230 

7533 

7575 

7583* 





FORI FI 

12261 

7602 

7 6 0 8 * 






FORITJ 

12214 

7440 

7570* 






F0RIT2 

12141 

7506 

7522* 






F0RIT3 

12155 

7535* 

7581 






FORMAT 

06673 

2614 

8190 

2940 

5493* 

5505 

5508 

5549 

7194 

FOR M2 

06770 

5559* 

7225 

8145 





FORUEX 

12167 

7524 

7545* 






FOR ON 2 

12210 

754 7 

7565* 






FORSTP 

12077 

3453 

7485* 






FORTST 

00203 

289 

1021* 

2464 

2790 

3412 

3451 

7232 



7332 

7450 

7493 

7494 

7621 

8041 

8044 

FOR VAR 

0 0 2 3 5 

1051* 

8055 

2524 

2850 

7416 

7432 

7504 

7507 

FORXIT 

03537 

341 3* 

3420 

344b 

7456 

7472 



FORI 

1 2030 

7438* 

7568 






FOR 2 

1 2035 

7444* 

7536 

7544 





FOR 3 

1204? 

7450* 

7614 






FOR 4 

12045 

7454* 

7459 

7462 





F0R5 

12065 

7 4 7 0 * 

7475 

7478 





FOUND 

1 2620 

7859 

7878* 






FPERRC 

10564 

6527 

6529 

6637* 





FTARLE 

14074 

312 







FUNCT 

14075 

312 

5766 






F UNO LIT 

14076 

312 

5931 






FVAR 

00142 

961* 

3202 

32 3 2 





0 A R R 

14077 

312 

2325 






GAS 

660000 

564* 







GASS 

00266 

1082* 

2618 

2944 

3618 

3629 

3633 

3638 



3641 

3677 

3682 

3684 

3690 

3692 

4314 



4318 

6120 

6217 

6283 

6299 

6306 

6319 

GASS1 

1012? 

6284* 

6295 






GASS15 

10127 

6285 

6289* 







2191 


4540 

4890 

5062 

8164 


8111 


7254 

8045 

7561 


3640 

4316 



PAGE 

234 MU^PS C 

ROSS PEF 

ERE MCE 






GASS 2 

10133 

6288 

6293* 







GASS5 

10132 

628 1 

6292* 







GASS6 

10141 

6 301 * 

6309 







GBACK1 

10415 

65 31* 

66 42 







GRACK2 

10473 

6577* 

6746 







GBACK 3 

10475 

6579* 

6733 







GRACK4 

10504 

6586* 

6726 







GRACK5 

10505 

6587* 

6659 







GBACK6 

10540 

66 0 2 

6615* 

6629 






GBACK7 

10541 

6616* 

6634 







GBAD 

00671 

289 

1 363* 







GBLKHI 

00251 

1063* 

2548 

2874 

6724 

7167 




G B Fj T P T 

00 710 

289 

1 38 3* 







GRUFF 1 

1410 0 

319 

6991 

6994 

7005 

7011 

7013 

7023 

7027 



7028 








G R W 0 2 

00705 

289 

1 380* 

2702 

6888 

7070 

7104 

7105 

7128 



7131 

7138 

7140 

7154 

7185 

7758 

7762 

8419 

GCH 

113 3 0 

7019 

7020 

7026 

703 3 

7056* 




GCHAIN 

14101 

319 

7017 







GCH A VP 

00672 

289 

1364* 







GCQN r 

10651 

6617 

6652 

6670 

6709* 





GCDVT1 

1 0670 

6720 

6725* 







GOISK 

11331 

290 

6586 

6886 

7063* 

7093 

7168 

7176 

718 3 



7757 








GDISK1 

11364 

7084 

7090* 

7097 

7107 

7113 




GDISK2 

11370 

7073 

7095* 







GOISK 3 

11405 

7075 

7109* 







GOISK 4 

11337 

7069* 

7088 







GOO ME 

11321 

6534 

6543 

67 38 

6892 

6915 

7049* 



GEND 

11322 

290 

6596 

6516 

6669 

671 3 

6806 

6948 

7050* 



7121 

7125 

7143 






GETKEY 

05242 

290 

2644 

2970 

4456* 

4481 

4483 

6155 

6345 

GET MEW 

14102 

312 

7069 

8418 






GEXIT 

11311 

660 5 

6858 

6880 

7040* 





Gexiro 

1130 5 

6988 

7 0 0 9 

7036* 






GFMOA 

10770 

6781 

6784 

6789 

6802* 





GFMOB 

10747 

6783 

6795* 







GFVDO 

10773 

6775 

6 8 0 5 * 

6810 

6815 

6817 




GFMOO A 

11001 

6773 

6812* 







GFVDO 8 

11013 

6801 

6822* 







G F \l 0 1 

1101 A 

6807 

6826* 







GFM02 

11023 

6831* 

6893 

6916 






GFV03 

110 31 

6837* 

6865 







GFMD3A 

11046 

6847 

6850* 







G F V P 4 

11052 

6854* 

6874 







G F V D 4 A 

11054 

682 4 

6856* 







G F V 0 5 

11057 

6835 

6860* 







GFVD6 

1106 5 

6852 

686 7* 







GFND7 

110 7 5 

6764 

6876* 







GF’JUMD 

10712 

67 39 

6756* 







GFREE 

1410 3 

312 

68 9 7 

6957 

7077 

7081 

7180 



GGRT 

10065 

5736 

6236* 







GGROV 

000001 

102 

103* 

2263 

2321 

2326 
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GHDQLO 

00255 

290 

10674 

1069 

2556 

2882 

6570 

6744 

6903 



7080 

7100 

7752 

8421 





GHEAO 

00253 

290 

1 0 6 5 4 

2552 

2878 

6572 

6576 

6577 

6732 



6743 

6884 

6902 

7078 

7098 

7735 

7754 

8416 

GHI 

00252 

290 

10644 

2550 

2876 

6579 

6716 

6718 

6722 



6885 

7160 

7170 

8348 

8350 

8357 

8361 

8415 



«423 

8440 

8493 






GHIGH 

10607 

666 8 * 

668 3 







GHIGRO 

10603 

6613 

66644 







GHI GHI 

10610 

66694= 

6688 







GHIGH2 

10620 

6611 * 

6695 

6698 






GHIGH3 

10634 

667 6 

66904 







GHIGH4 

10645 

6691 

66994 







GIMDEX 

11326 

6540 

6550 

6566 

6578 

6600 

6611 

6621 

6657 



666 4 

67 37 

6766 

68 37 

6838 

6844 

6856 

6890 



6891 

6894 

6914 

7054* 





GKTLfj 

10104 

62594 

7782 







GKTLL2 

010105 

62604 

64 6 6 







GKILL3 

10110 

626 44 

648 9 







GKILL4 

010112 

62664 

6591 

7038 






GLFNCT 

11327 

290 

65 3 1 

6558 

6648 

6756 

6779 

6813 

6828 



691 1 

6928 

7040 

7055* 

7095 

7109 

7756 


GLOBAL 

00272 

278 

290 

1 086* 

2650 

2976 

5449 

5478 

6093 



6238 

6253 

6262 

6265 

6581 

6584 

6599 

7036 



7042 

7045 

7047 

7734 

7744 




GLSET 

11426 

6594 

6601 

6658 

7092 

7137* 

7144 



GNEXT 

10700 

6622 

67374 







GNQSYM 

1 0600 

6568 

66574 







GNOWDS 

11 325 

6778 

6787 

6790 

6799 

6802 

68 32 

6840 

6862 



6863 

6918 

6944 

6950 

7053* 

7156 

7163 


GO 

12266 

3465 

76174 







GOBEG 

01040 

715 

15664 







GOCL3K 

01324 

787 

20804 

2084 






GQDMP 

01042 

716 

1 5684 







GOERR 

01036 

747 

15644 

2037 






GOFF 

11412 

6827 

6855 

6889 

6901 

6955 

7066 

7090 

7120* 



71 32 

7186 







GOSNAF 

01044 

717 

1 5704 







GOl 

12326 

7620 

7651 4 







GD2 

12317 

7627 

7642* 







GPOTNT 

11323 

6898 

6904 

6958 

7051 4 





GPfJT 

10073 

62464 

8152 







GSCRIP 

10242 

63814 

6448 







GSCRlt 

10332 

6410 

64 41 4 







gspace 

114 36 

6841 

6919 

6956 

7153* 

7159 

7171 

7187 


GSPACl 

11437 

71544 

7178 







GSPAC4 

11461 

7162 

7166 

7173* 






GSPAC6 

11467 

7175 

718 0* 







GSYM 

00270 

291 

108 4 4 

2648 

2974 

5463 

5476 

6236 

6246 



6259 

77J 1 

6390 

6398 

6415 

6456 

6464 

6469 

7698 

GSYMBO 

00254 

291 

10 6 6 4 

2554 

2890 

6118 

6552 

6553 

7697 

GSYMO 

10231 

6355 

63664 

6461 
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GSYMl 

10235 

6371* 

6483 







GSYM1 0 

1 0330 

6418 

6436* 







GSYMl 1 

10375 

6320 

6479* 







GSYM2 

10204 

6342* 

6460 







GSYM21 

10214 

6341 

6351 * 







GSYM3 

1 0350 

6 336 

6458* 







GSYM4 

10354 

6373 

6462* 







GSYM5 

10363 

646 3 

6469* 







GSYM6 

10402 

6467 

6484* 







GT ABLE 

14104 

321 

6181 

6 300 






GT£ M P 

11324 

6932 

6945 

6962 

6963 

6969 

7052* 



GTHRED 

11225 

6610 

6830 

6987* 






GTHR2 

11254 

7011* 

7025 







GTHR3 

11262 

7001 

7017* 







GTHR4 

11301 

7022 

7032* 







GTM8UF 

14105 

321 

6606 

6769 

6848 

6927 

6935 

6941 

6965 



6987 

6989 

70 32 






GT'MR • 1 

14106 

321 

6933 

6959 






GUN 02 

11102 

6884* 

6905 







GUM 0 3 

11114 

6894* 

6920 







GUM 04 

11122 

6900* 

o97l 







GUM 05 

11130 

6730 

6911* 







GUM 06 

11142 

6742 

6926* 







GUM 0 7 

11161 

6941 * 

6978 







GUN OR 

11175 

6949 

6954* 







GUN 0 9 

11217 

6938 

6973* 







GUN IT 

00247 

291 

408 

1061 * 

2544 

2870 

6575 

0996 

7007 



7015 

7018 

7030 

8367 

8383 

8405 

8465 


GXTBAD 

11304 

6702 

6913 

6930 

7035* 





GOOFF 

10572 

6588 

6647* 







HALT 

14107 

312 

3466 







HALTER 

14110 

312 

2026 







HALT 0 N 

00664 

291 

1 356* 







HALT! 

14111 

31 2 

3072 







hang 

015 3 3 

291 

441 

2212 

2226 

2240* 

22 4 3 

2393 

3362 



351 1 

3533 

4012 

4111 

5094 

5678 

6135 

6214 



7046 

7377 

7568 

7767 

8426 




HANG. 2 

01535 

2220 

2242* 







HANG. 4 

01545 

2217 

2227 

2253* 






HAMG1 

1 2 3 31 

291 

7b56* 







HAMG2 

1 2345 

7659 

7 66 8 * 







HFGL01 

14112 

314 

6417 







HKBENT 

14113 

314 

2046 







HLOCK 

000000 

265 

266* 

1356 






HLTSWT 

00663 

291 

1 355* 

2273 






HOMCHR 

000035 









HOUT 

14114 

314 

2158 







HTPENT 

14115 

314 

2060 







ICHARI 

04725 

292 

344 

2622 

2948 

3284 

3330 

3938 

3975 



3988 

4189* 

4200 

4208 

4215 

5906 

6027 

6045 



7900 

79 17 

7926 

8130 





10 

00240 

292 

1 054* 

2530 

2856 





IENTRY 

141 16 

471 

1633 
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I EM TO 

04727 

41914= 

4219 







IFNT1 

04744 

4 201* 

4217 







T F N T 2 

04756 

4209* 

4218 







IF 

12347 

3467 

7672* 







1FSWT 

00246 

1 060* 

2542 

2868 

767 5 

7676 

7684 



IF2 

12351 

7674* 

7681 







I F 3 

12353 

7673 

7676* 







ILIIMT 

01253 

768 

769 

770 

771 

776 

782 

784 

785 



792 

794 

795 

800 

806 

808 

809 

810 



811 

816 

822 

824 

825 

830 

836 

842 



848 

854 

860 

866 

872 

878 

1981* 

1987 

IN 

03365 

442 

3284* 







IMDIR 

03525 

3389 

3397* 







INOTAB 

01007 

292 

1375 

1563* 

2348 

2690 

3131 



I W P U T 

00163 

442 

465 

1004* 

1140 

2432 

2758 

3142 

3257 



5583 

5666 







INSERT 

04535 

3959 

4029* 







TNSNIJM 

06030 

4958 

4969* 







INSSTR 

06046 

4957 

4965 

4986* 






I W TAB 

00476 

1 202* 

5667 







INTAC 

00560 

1 226* 

1578 

1796 

1809 

1830 

1652 

1874 

1896 



1918 

1 940 

1962 

1996 

2018 

2019 

2083 

221 4 



2218 








I NTS PH 

001046 

73 4 

157 3* 







I N T L 

00563 

1229* 

1584 

1790 

1817 

1838 

I860 

1882 

1904 



1926 

194 8 

1970 

2 0 04 

2091 

2206 



INTM3 

00561 

1 227* 

15 80 

1794 

1813 

1834 

1856 

1878 

1900 



1922 

1944 

1966 

2000 

2087 

2208 



I -'i T OFF 

705522 

116* 

241* 

1575 

1807 

1828 

1850 

1872 

1894 



1916 

1938 

1960 

1982 

1994 

2081 

2241 

2294 



2387 

3104 

3119 

3499 

3540 

5679 

5841 

7662 

IN TON 

705521 

1 15* 

240* 

1800 

1985 

2025 

2035 

2256 

2316 



2338 

3107 

3122 

3503 

3523 

3546 

5685 

5861 

INTSCO 

OHIO 

376 

833 

1806* 

1810 





INTSC1 

0113 3 

378 

839 

1 827* 

1831 





T NTSC 2 

01157 

381 

845 

1 849* 

1853 





INTSC'3 

01203 

384 

851 

1871* 

1875 





IMTSC4 

01227 

387 

857 

1 893* 

1897 





I N T X 

00562 

1 228* 

1582 

1792 

1815 

1836 

1858 

1880 

1 902 



1 924 

1 946 

1968 

2002 

2089 

2204 



T M 7 

03375 

3288 

3292* 







IOTMP 

00564 

1230* 

2098 

2105 

2110 

2388 

2391 



TOUT 

03101 

3055 

3073* 







TPIM 

701764 

667* 








IPLACS 

00221 

29 2 

10 39* 

2500 

2826 

3296 

3304 

3308 

3316 



3 375 

3922 

3926 

4190 

^194 

4201 

4209 

5706 



5911 

5985 

6011 

6019 

6032 

6046 

7202 

7891 



7905 

7922 

7990 

8074 

8089 

8119 

8126 


IPO I NT 

00220 

292 

343 

1 0 3 8 * 

2498 

28 2 4 

3030 

3031 

3292 



3300 

3313 

3 314 

3377 

3932 

4195 

4196 

4199 



4205 

4207 

4212 

4214 

4775 

4840 

4851 

4992 



5001 

5708 

5907 

5982 

602? 

6028 

6051 

6053 



6055 

6058 

7204 

7888 

7901 

7918 

7932 

7997 
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8076 

8091 

8121 

8134 





I TEX T 1 

06264 

512 8 

5167* 







I VAR 

0 014 3 

292 

962* 

5651 






J8SPTR 

00646 

1 340* 








JOIN 

12366 

3468 

7691* 







JO I MO 

1 2370 

7 6 9 3 * 

7770 







jam 

12424 

7721 * 

7732 







kbqi.it 

14117 

37 4 

1202 







KEEP20 

00573 

1 240* 

3047 

3049 






KE V 

0 3336 

2 92 

3261 * 







KEYCHK 

05272 

292 

2642 

2968 

4496* 

4497 

4498 

4502 

4504 



4505 

615 7 

6351 

6 3 6 0 

8351 




KEYCH2 

05302 

4500 

4504* 







KEYCR 

03430 

3266 

3323* 







KEY. 2 

03340 

292 

3263* 







KILL 

12506 

3469 

7774* 







KILL1 

12513 

7775 

00 

o 

-M- 

7794 






KILL15 

12527 

6263 

6267 

7792* 






KILL2 

1 2530 

7793* 








KRB 

700312 

572* 

2043 

2052 






KSE 

700301 

571* 

1731 







KVAR 

00137 

292 

958* 

6149 

6326 

8354 




LOM fy l 

700024 

662* 








LETTER 

07261 

5725 

5775* 







LF.TT0 

07263 

5777* 

5793 







LETT1 

07274 

5780 

5789* 







LETT? 

07272 

5767 

5784* 







LETT3 

07264 

5778* 

5798 







LINE 

06763 

5497 

5553* 







LMTBPT 

00707 

293 

1 382* 







LOC 

00206 

293 

1024* 

2470 

2796 

3381 

4362 

4391 

4417 



4423 

4431 

4437 

4439 

7233 

7255 

7269 

7299 



7 304 

731? 

7331 

7448 

7487 

7612 

7631 


LOCK 

14120 

314 

3470 







LfJKOr 

03701 

441 

2639 

2965 

3539* 

3547 




LGKDT1 

03675 

3533* 

3543 







LOKUP1 

07325 

5828* 

6241 







LOOKUP 

07322 

5785 

5825* 

5968 






LOSE 

06342 

5216* 

5290 

5293 

5296 

5303 

531? 

5324 

5409 

LPAREM 

06375 

5123 

5253* 







L P S F 

706501 

641 * 

1743 







LPSF.2 

703501 

646* 

1752 







LPSTA 

00642 

482 

1 333* 







LPSTA2 

00643 

1 334* 








LP 1 5 

000000 

1 24 

125* 

254 

479 

802 

805 

1156 

1182 



1208 

1262 

1405 

1447 

1450 

1740 



LP15.2 

000000 

3 27 

128* 

254 

489 

826 

829 

1159 

1185 



1211 

1265 

1 405 

1454 

1457 

1751 



LR 

00161 

e>89* 

2262 

2414 

2740 

3007 




LVAR 

00145 

293 

964* 

3352 

3939 

4364 

4387 

4413 

4424 



4426 

4428 

4430 

7234 

7256 

7267 

7305 

7308 



7330 

7 344 

7518 

7629 

7827 

7955 

7970 

8064 

M 

00214 

293 

1 034* 

2490 

2816 

3716 

3729 

3735 

3750 
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3753 

3773 

3780 

4070 

4465 

4472 

4514 



4526 

5777 

5791 

6278 

6284 

6287 

6330 



6 332 

6333 

6352 

6357 

6359 

6361 

7408 



7996 







MBUF2 

04573 

2659 

2985 

4066* 

4083 

7842 

7978 


MOUMP 

14121 

334 

1475 






MEXEC 

03055 

295 

3049* 






MFUNCT 

1412? 

343 







MTMUS 

07177 

5 714* 

5891 






MODFY 

1 2533 

3472 

7821 * 






MODIFY 

000001 

199 

200* 

1097 

2655 

2980 

3471 

3474 



7797 







MOD MET 

12535 

7 8 2 3* 

80 06 






money 

000001 

1 47 

143* 

154* 

339 

1026 

1412 

1415 



2800 

4645 

5088 

6072 




MONEYM 

14123 

349 

1413 






MON IT 

00661 

293 

1 35 3* 

2400 

2672 

2694 



MONTH 

14124 

321 

2132 

2141 





MONTTY 

00575 

367 

1243* 

2047 

2061 

2171 

2174 


MONYSW 

00210 

356 

1027* 

2477 

2803 

4646 

5089 

6074 

MOVD1 

04562 

4047 

4 0 5 0 * 






MOVE D N 

04550 

4040* 

4049 






MPCNF 

701744 

666* 

2032 






MPE'J 

70174? 

66 1 * 

3001 

3064 





M p s N E 

701741 

665* 

1777 






MQ 

00157 

987* 

2258 

2410 

27 36 

3003 



MSRUF 

0 461 0 

4079* 

4084 






MSTACK 

03766 

3604 

3617* 






M S T K R 

04012 

3637* 

3647 






MSTR 

07657 

6 0 6 5 * 

6091 






MT A 

000001 

162* 

254 

461 

778 

761 

1165 

1166 



1192 

1217 

1218 

1253 

1403 

1440 

1443 

MTA7DN 

000000 

159 

1 60* 

3 62 





M T A 9 

000001 








MTA90N 

000001 

156 

157* 

162 





M T BUFF 

00667 

465 

1361 * 






m T C 0 L 

000073 

243 

244* 

246 

247* 

1409 



MTEOM 

00674 

466 

1371* 






MTKRRS 

00630 

465 

1316* 






MTGET 

14125 

466 

1219 






MTO'/Ffi 

007 3? 

467 

1 409* 






M T P U T 

14126 

466 

1193 






MTS TAT 

00627 

465 

1315* 






MTTR AN 

00604 

465 

779 

1 254* 





MTUN1 

006 31 

465 

1 320* 






MTUN2 

00632 

1321* 







MTUN3 

00633 

1 322* 







M T i 1 M 4 

00634 

1 32 3* 







M T f J \! 5 

00635 

1 324* 







MTU N 6 

00636 

1 325* 







MTUM7 

00637 

1 126* 







MTUN8 

00540 

1 327* 







M T M H 0 1 

00406 

465 

1167* 







4523 

6331 

7410 


4060 


2475 


1191 

1629 
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M (J RUR F 

14127 

320 

1476 


M U 0 c 

14130 

375 

1420 


MOOT 

14J31 

451 

1463 


MUUO 

07345 

5 8 4 4 * 



M U L 2 

07352 

5846 

5849* 


VUL3 

07366 

5850 

5860* 


MUMPS2 

141 32 

313 

1410 


M !J M T 

141 33 

47 2 

1441 


MUPT 

1 4134 

326 

1460 


MURP 

14135 

414 

1427 


MVAR 

0 0141 

293 

9 6 0 * 

3176 

MBPNT 

00653 

29 3 

1 34 7* 

7064 

M E X M R 

01262 

1779 

20 3 2* 


NEXT 

06777 

5530 

8220 

5536 

5550 

MEXT1 

0701 1 

557 8* 

8340 


M E X T 2 

0701 0 

5572 

5574 

5577* 

MFLAG 

01073 

408 

425 

1785* 



1928 

195 0 

1972 

MKDCHK 

10672 

6711 

6728* 


M M C R 

00727 

1 40o* 



MMQC 

0 0 7 3 0 

1 407* 



>4 M 0 T 

00725 

1 404* 



NfMDUM 

00731 

1408* 



NMGBf. 

0071 1 

1 384* 



NMLP 

00 7 26 

1 405* 



NMMT 

00724 

1 403* 



NMRF 

0071 2 

1 385* 



M M R P 

00713 

1 386* 



NQARR 

06022 

4722 

47 34 

4960* 

MOFlj AG 

00644 

329 

442 

1 338* 

MOG 

000074 

1 384 



MOST AC 

04023 

3636 

36 46 * 


NOSY M 

05547 

4696 

4 7 4 0 * 


N STACK 

04055 

3665 

3677* 


NSTKR 

04071 

3689* 

3697 


MUM AT 

000051 

256* 

1149 

1175 

MUMDEF 

05637 

4810* 

4981 


M U M R [ i £ 

006137 

5016 

5050* 


mumtt 

000050 

253* 

254 

256 

M U MVAR 

06152 

4868 

507 3 * 


MUMV1 

06157 

5074 

5078* 


N USE OK 

001504 

2197 

2200* 


OBPMT 

00171 

293 

1010* 

2444 

OCHar 

04645 

293 

344 

2594 



3897 

3904 

3936 



3986 

3994 

3996 



4131 

4479 

455ft 



5568 

5870 

5875 



6169 

6221 

6338 



7379 

7438 

7451 



78 30 

7949 

8004 

□CHARI 

04660 

293 

2586 

2912 


551 6 
8463 

5520 

8468 

9474 



5557 

5568* 

8197 

8204 

8211 

8038 

1619 

2006 

8107 

1840 

2093 

1 86? 

1884 

1906 


1785 

1983 



1201 

2167 

3156 

3286 

2050 

2064 




2770 

6723 

7079 

7099 

8 385 

2910 

3432 

3433 

3438 

3444 

3970 

3974 

3980 

3982 

3984 

4015 

4024 

40 31. 

4123* 

4127 

5133 

517? 

5221 

5370 

5378 

5897 

5952 

6039 

6076 

6151 

6370 

6411 

6446 

6458 

7336 

7545 

7573 

7679 

7768 

7792 

8035 

8106 

9181 

8336 

8362 

3386 

341 3 

3424 

3434 

3558 
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3720 

3978 

3981 

3985 

3990 

3995 

4035 

4038 



4040 

4050 

4137* 

4142 

4148 

4155 

4482 

4515 



4532 

4562 

4571 

4611 

4615 

5119 

5160 

5193 



5271 

5494 

5538 

5546 

5556 

5719 

5746 

5750 



5758 

5761 

5778 

5901 

5967 

6041 

6090 

6107 



6173 

6225 

6279 

6293 

6424 

6455 

7284 

7407 



7454 

7460 

7466 

7470 

7476 

7588 

7595 

7693 



7707 

7780 

7843 

7895 

7952 

8080 

8095 

8150 

OCTni.IT 

04320 

297 

2612 

2938 

3871 * 

3886 

8210 



0CT2 

04325 

3 8 76* 

3885 







□ FLAG 

0021 3 

1 0 3 3* 

2488 

2814 

6318 

6344 

6349 

6391 

6397 



6425 

6445 

6481 






OF 2 

14136 

314 

6427 

6478 






0F3 

141 37 

314 

6583 







0F5 

14140 

314 

6430 

6471 






OLAY 

14141 

314 

6112 







ONLYQW 

06124 

5032 

5038* 







OPEN 

07677 

3478 

6105* 







OPENO 

07707 

6109 

6114* 







OPEN 1 

07714 

6119* 

6140 







OPEN 2 

07747 

6127 

61 47* 







0 P E N 3 

07775 

6169* 








OPEN 4 

07742 

6 3 29 

6142* 







OPENS 

0771 5 

6120* 

6175 







□PLACE 

00223 

297 

1041 * 

2504 

2830 

3385 

3557 

3917 

41 26 



4138 

4141 

4151 

4168 

4171 

4177 

4609 

5330 



534b 

540 8 

6116 

6139 

7211 

7214 

7222 

7236 



7253 

7273 

7283 

7303 

7328 

7447 

7488 

7587 



7635 

7856 

7881 

7911 

7940 

7947 

7987 

7992 



8002 

8070 

8072 

8087 

8104 




OPNCNT 

00670 

297 

1362* 

6145 

6146 

6168 

6201 

6203 


□ POINT 

00222 

297 

1040* 

2502 

2828 

3383 

3555 

3930 

4124 



41 39 

414 9 

4152 

4174 

4175 

4434 

4435 

4607 



5323 

5344 

5406 

6114 

6137 

7210 

7216 

7223 



7235 

7257 

7271 

7281 

7301 

7329 

7446 

7489 



7586 

7633 

7854 

7879 

7909 

7942 

7945 

7985 



7995 

8000 

8069 

8077 

8092 

8105 



0P1 

07332 

297 

5163 

5804 

5833* 





0P2 

07377 

5839 

5868* 







□ TEXT 

0371 ? 

297 

26 3 0 

2956 

3553* 

3560 

7703 

7724 

8226 



8230 








OUT 

03174 

297 

2620 

2946 

3056 

3061 

3062 

3146* 

3204 



3209 

3 3 39 

3343 

3343 

3356 

3 357 

3366 

3368 



3370 

340 3 

3561 

382 3 

3836 

3856 

3880 

5129 



5176 

5182 

5203 

5208 

5533 

5543 

5555 

5596 



5606 

5628 

5637 

5640 

5669 

5670 

5680 

5684 



7720 

7 7 2 8 

8 03 3 

8205 

8216 

8238 

8245 

8272 



8278 

8 280 

8288 

8295 

8297 

8 3 30 

83 32 


OUTPUT 

0 016 4 

20 ? 

34 4 

113 

1005* 

1 1 40 

2434 

2760 

3142 



3149 

3162 

3199 

3244 

5581 

5664 



0UTTA8 

0 0 4 t 4 

297 

1176* 

1 343 

3156 

5580 

5663 



OVERLA 

0 7 7 0 4 

6 11 0 * 








0VER1 

005465 

4668 

4674* 
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OVER? 

0547? 

4670 

46 8 2 * 







OVER 3 

0547 6 

4677 

4687* 







P 

00300 

1 10 4* 








PACKED 

03325 

2 97 

2626 

2952 

3249* 

333 1 

33 32 

3348 

3378 



7205 

8078 

8093 

8122 





page 

06764 

5501 

5554* 







PART 

05151 

299 

2596 

2922 

4386* 

4407 

5 608 

5609 

7297 



7 3 8 4 

7647 

8327 






PAST A ft 

14142 

321 

1376 

2714 

3134 





PBDOLX 

00275 

298 

1 089* 

2669 

2995 





PC 

00155 

984* 

1372 

2253 

2406 

2689 

2713 

2715 

2716 



2732 

3059 







rs r~> r\ r* r*» *f 

rh«Lc* N 

07260 

5732 

577 1 * 







PERIOD 

000003 

25 9* 

1398 







PERMSY 

000041 

110 3 

1561* 







PFAIL 

000000 

95 

96* 

788 

791 

1587 

1991 



PFSP 

703201 

658* 

1588 

2005 






PI, ACE 

04340 

2582 

2908 

3397 

3896* 

3909 

6993 

6998 

7002 



7004 

7292 

7912 

7946 

8100 




PLACE 1 

00226 

299 

1 0 4 4 * 

2510 

2836 

4231 

4233 

4242 

5170 



5428 

5436 

5462 

5477 

5592 

7857 

7880 

8201 

PLACE? 

00231 

299 

104 7* 

2516 

2842 

4260 

4262 

4271 

5181 



5331 

5345 

5407 

5448 

5479 

56 33 

5978 

7848 



7870 

7873 







PLACE3 

04452 

3978* 

3989 







PLACE4 

04476 

3992 

3998* 







PLACES 

04473 

3977 

3995* 







PLACE6 

0454? 

3973 

4034* 







PLACE'/ 

0444b 

3974* 

40 21 

4028 

4058 





PLACER 

04527 

3966 

4023* 







PL AC 1 

04357 

2652 

2978 

3908 

3916* 

4011 

4013 

7943 

7998 

PL AC 3 A 

04453 

3976 

3979* 







PLAC4A 

0451 0 

4003 

4008* 







PLAC46 

0451 2 

4001 

4010* 







PLENG 

00701 

299 

1 376* 







PLUS 

07176 

5713* 

5889 







POINT1 

00225 

299 

343 

1043* 

2508 

2834 

4232 

4240 

4243 



5168 

8199 

5433 

5434 

5460 

5481 

5590 

7855 

7878 

POIMT2 

00230 

299 

1046* 

2514 

2840 

4261 

4269 

4272 

5179 



5329 

534 3 

5405 

5446 

5483 

5631 

5976 

5989 



7852 

7868 

7 875 






POQLRP 

000062 









PRDCNT 

00276 

298 

1090* 

2667 

2993 





PPGORT 

00722 

299 

1 399* 







PRINT 

13020 

3479 

8011* 







PR IN TO 

1 3023 

8014* 

8037 







PRINT 1 

1 3050 

299 

8025 

8032 

8035* 





PRINT? 

1 3045 

8028 

8032* 







PRINT3 

1 3037 

8021 

8026* 







PRNCDV 

0016? 

299 

1 003* 

1069 

2430 

2756 

3354 

5578 

5661 



5674 

8019 







PRODA 

03641 

299 

2580 

2906 

3498* 

3504 

3525 

6119 

6206 



PAGE 
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6216 

6524 

8 384 

PRHDRT 

03657 

2354 

3512* 


PROD 1 

0365° 

350 1 

3505* 


PROD 15 

03656 

3511* 

3518 


PROD2 

03661 

3508 

3514* 


PR0D3 

03666 

3510 

3515 

3519* 

PROG 

00236 

300 

1052* 

2526 

p R t E M D 

0 015 4 

300 

977* 

2727 

PRTIDX 

00657 

300 

1 351 * 

2274 

PRTIM 

00660 

300 

1 352* 

2371 

PRTMMB 

00654 

300 

409 

425 



2292 

2300 

2322 



2390 

2392 

2678 



3 358 

3365 

3509 



766 3 

7665 


PRTMUM 

000027 

1137 

1341 

1562 

PRTPTR 

0 0 71 4 

300 

1387* 


PRTSIZ 

0021 14 

1 37 4 



PRVDKA 

00601 

1 247* 

2194 

3521 

PSP 

700201 

581* 

17 7 1 


PSIZP 

0067 7 

1 374* 



PSTART 

00700 

1 375* 



PTEMPX 

00274 

298 

1 0 8 8 * 

2655 

PTPIM 

14143 

325 

1181 


PTPOUT 

14144 

325 

177 3 


PTR0LJT 

14145 

325 

1207 


PTTRAN 

00602 

300 

786 

1249* 

P T Af H 0 

00405 

300 

1155* 


PlISFJR 

00237 

301 

1 05 3* 

2528 

P P T M 0 M 

06164 

5069 

5085* 


PVAR 

00140 

959* 

3225 


pdri re 

000000 

205 

206* 

1401 

0 

000170 

2474* 

2476* 

2476 



2484 

2486 

2489 



2501 

2503 

2505 



2517 

2519 

2521 



2533 

2535 

2537 



2549 

2551 

2553 



2565 

2567 

2569 



2581 

2583 

2585 



2597 

2599 

260} 



2613 

2615 

2617 



2629 

2631 

2633 



2640 

2643 

2645 



2654 

2656* 

2656 



2666 

2668 

2670 



2306 

2807 

2809* 



2819 

2821 

2823 



2835 

2837 

2839 



2851 

2853 

2855 



2867 

2869 

2871 



288 3 

2885 

2887 



2899 

2901 

2903 


8414 


2852 


3026 

3067 

3329 

7200 

8117 

2318 

2679 

2687 



2673 

2680 




441 

1 348* 

2195 

2275 

2288 

2327 

2345 

2347 

2357 

2372 

3035 

3037 

3041 

3042 

3068 

3519 

3534 

3544 

5671 

5683 


2991 


2854 


2478 

2481 * 

2481 

2483 

2484* 

2491 

2493 

2495 

2497 

2499 

2507 

2509 

2511 

2513 

2515 

2523. 

2525 

2527 

2529 

2531 

2539 

2541 

2543 

2545 

2547 

2555 

2557 

2559 

2561 

2563 

2571 

2573 

2575 

2577 

2579 

2587 

2589 

2591 

2593 

2595 

2603 

2605 

2607 

2609 

2611 

2619 

2621 

2623 

2625 

2627 

2635 

2636* 

2636 

2638* 

2638 

2647 

2649 

2651 

2653 

2654* 

2658 

2660 

2663 * 

2661 

2664 

2799* 

2801* 

2801 

2802 

2806* 

2 8 09 

2810 

281.3 

2815 

2817 

2825 

2827 

2829 

2831 

2833 

2841 

2843 

2845 

2847 

2849 

2857 

2859 

2861 

2863 

2865 

2873 

2875 

2877 

2879 

2881 

2889 

2891 

2893 

2895 

2897 

2905 

2907 

2909 

2911 

2913 
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y. U « PS C R 0 S S REFERS M C E 




2915 

2917 

2919 



2931 

2933 

2935 



2947 

2949 

2951 



2961 

2963* 

2963 



2975 

2977 

2979* 



2986* 

2986 

2988 

QF7 

14146 

315 

6419 


QF8 

141 47 

315 

6435 


QUEST 

0671 3 

5503 

5510* 


QUIT 

1 3054 

3 4 80 

6041 * 


QUOTE 

06747 

5499 

5536* 

5544 

QUOTE1 

06756 

5542 

5546* 


R 

000000 

6 8 7 * 



RDCLK 

701762 

664* 



R D C N T 

00176 

301 

1016* 

2454 

RDCNTX 

14150 

315 



RDMM 

700032 

663* 



READ 

1 307 3 

348 1 

8061 * 


RE A 0 0 

13105 

8071 * 

8101 


REAOOA 

13142 

8083 

8100* 


RE ADO B 

13144 

8099 

8102* 


READ! 

13152 

8063 

8111 * 


READ! A 

013166 

367 

8123* 


REGS 

000014 

999* 

1101 


REL? 

06340 

5143 

5205 

5214* 

REMOVE 

10005 

301 

2663 

2989 



6180* 

6185 

6207 

REMtm 

10010 

6183* 

6197 


REM0V2 

10021 

6192* 

6204 


REM0V3 

10027 

6191 

d 1 98 * 


REPCH 

12641 

7895* 

7904 

7908 

REPTRA 

05067 

4315* 

4323 


REP2CH 

12663 

7913* 

7921 

7925 

REST OR 

03742 

3580 

3588* 


RFADRO 

00614 

425 

1291* 


RF ADR 1 

00615 

425 

1292* 


RFERRS 

00616 

425 

1293* 


RFOPTD 

000002 

193 

194* 


RFOPTG 

000004 

J 96 

197* 


RFSTAT 

0061 3 

425 

1290* 


RF 1 S 

000000 

421 

81 2 

815 



8345 

8477 

8490 

RMOV 

10013 

6186* 

6220 


RP 

000003 

212* 

404 

818 



1259 

1386 

1426 



8464 

8483 

8486 

RPADDR 

00622 

409 

1 303* 


RPDRV 

00620 

409 

1 301 * 


RPERRS 

0062 3 

408 

1 305* 


R PER ST 

00621 

408 

1 302* 


RPFTjAG 

14151 

41 3 

1627 


RPOPTD 

000002 

187 

188* 


RPOPTG 

000006 

190 

191* 



2921 

2923 

2925 

2927 

2929 

2937 

2939 

2941 

2943 

2945 

2953 

2955 

2957 

2959 

2961* 

2964 

2967 

2969 

2971 

2973 

2979 

2981* 

2981 

2982 

2984 

2990 

2992 

2994 



2780 






3812 

3819 

3838 

3847 

6130 

7706 

7716 

7722 

7723 

7730 


1256 

8495 

1 385 

1433 

1436 

1613 

821 

889 

905 

925 

929 

1429 

1621 

8406 

8409 

8410 



PA GF 245 


MUMPS CROSS reference: 


RPSECT 

000400 

? 1 0* 








RPSTAT 

00617 

40 8 

1297* 







RPTRAN 

00605 

409 

819 

1260* 






RPO 2 

000003 

21 2 








RPC 3 

000000 

1 08 

109* 

212 






RSET 

12570 

7853* 

7876 







RSF 

700101 

580* 

1765 







RUB 

03441 

3262 

3334* 







RUMOOW 

00656 

301 

409 

1 350* 

2102 

2182 

2184 

2255 

3010 

R 0 N N M B 

00655 

1 349* 

2682 

6128 

6166 

6190 

6335 

6563 


R07 

000007 

724* 

2096 

2100 






RIO 

000010 

728* 

2416 

2742 






Rii 

000011 

729* 

3019 

3021 

3023 

3025 




R 1 2 

000012 

7 30* 








R 1 3 

000013 

731* 

2418 

2744 






R 1 4 

000014 

735* 

2420 

2746 

3944 

3946 

3948 

3949 

3952 



3960 

3969 

3987 

3998 

4000 

4005 

4008 

4014 



4020 

4022 

4023 

4029 

4072 

4082 

4095 

4104 



4107 

4970 

4977 

4979 

4996 

5004 

5006 

7361 



7370 

7373 

7 387 

7894 

7902 

7919 



R 1 5 

000015 

736* 

2422 

2 748 

3961 

3962 

3964 

3967 

3999 



4004 

4006 

4017 

4026 

4030 

4034 

4046 

4053 



4078 

4080 

4099 

4103 

4105 

4772 

4786 

4825 



4829 

4837 

4988 

6117 

6138 

6761 

6843 

7366 



7369 

7371 

7737 

77 38 

7750 

7753 



R 1 6 

000016 

7 37* 

2424 

2750 

4094 

4096 

4098 

4363 

4372 



4373 

4375 

4378 

4379 

4394 

4397 

4399 

4402 



4403 

4433 

4436 

4600 

4610 

4693 

4902 

4928 



5180 

5607 

5611 

5613 

5616 

5617 

5629 

6115 



6136 

6667 

6674 

6692 

6699 

6760 

6793 

6797 



6809 

6826 

6868 

6869 

6934 

6940 

6943 

6946 



6951 

6954 

6966 

6967 

6974 

7268 

7298 

7313 



7314 

7316 

7 319 

7320 

7360 

7362 

7365 

7386 



7388 

7390 

7393 

7394 

7630 

7841 

7850 

7885 



7966 

8306 

8307 

8309 

8312 

8 313 



R 1 7 

000017 

738* 

2426 

2504 

2721 

2752 

4067 

40 6 8 

4071 



4073 

4075 

4079 

4081 

4602 

4608 

4661 

4662 



4671 

4679 

4680 

4682 

4684 

4687 

4694 

4706 



4707 

4709 

4714 

4719 

4720 

4730 

4732 

4735 



4759 

4763 

4765 

4781 

4785 

4803 

4807 

4809 



4*19 

4822 

4829 

4846 

4850 

4853 

4869 

4884 



4898 

4907 

4972 

4978 

4998 

5005 

5024 

5046 



5047 

5058 

5075 

5086 

5178 

5588 

5598 

5600 



5601 

5832 

5974 

5998 

6003 

6545 

6547 

6557 



6561 

6569 

6571 

6573 

6595 

6598 

6615 

6618 



6625 

6627 

6630 

6632 

6633 

6668 

6671 

6579 



668 l 

66 8 4 

6686 

668 7 

6745 

6759 

6768 

6776 



6795 

6796 

6798 

6803 

6804 

6805 

6808 

6812 



6918 

6819 

6821 

6842 

6845 

6849 

6853 

6854 



6870 

6877 

6896 

6899 

6900 

6931 

6939 

6947 



6950 

6968 

6973 

7122 

7139 

7169 

7177 

7436 



7519 

8214 

8217 

8221 

8250 

8257 

8259 

8268 



8269 

8273 

8281 

8284 







page 

246 Ml 

DM PS C 

ROSS REE 

ERE MCE 






R 2 0 

000020 

7 4 4 * 

2036 

2428 

2686 

2722 

2754 

3046 

3050 



3198 

3256 

3285 

3334 

5579 

5662 

5673 

7239 



8019 








R22 

000022 

7 5 4* 








R2 3 

000023 

755* 








R30 

000030 

756* 








R 3 1 

000031 

757* 








R 32 

00003? 

758* 








R 3 3 

000033 

759* 








R35 

000035 

7 60* 








R 36 

000036 

761* 








R.3 7 

000037 

762* 








SAVE 

05040 

301 

3 4 4 

2590 

2916 

3254 

3293 

4040 

4042 



4051 

4055 

4292* 

4298 

4299 

4307 

4342 

4355 



4459 

4543 

4577 

4659 

4664 

4710 

4916 

4918 



4954 

4974 

4976 

4980 

5000 

5002 

5007 

5030 



5033 

5034 

5254 

5447 

5482 

5920 

5937 

6323 



6343 

6375 

6382 

6422 

6442 

6453 

6475 

6485 



7209 

7230 

7252 

7415 

7445 

7585 

7611 

7849 



7869 

7874 

7889 

8068 

8160 

8222 

8227 

8241 



824b 








S A V P R D 

00201 

1019* 

2460 

2786 

3505 

3512 

3524 



SB A 

707761. 

2247* 

2248 







SBACK 

0504? 

4294* 

4 3 06 







SCAM 

07203 

5 718* 

5812 

5821 






SCA-MCT 

1415? 

374 

2067 







SCAN 0 

1415 3 

374 

1653 

1662 

1671 

1680 

1689 

1698 

1707 



1716 

1824 

1846 

I860 

1890 

1912 

1934 

1956 



1978 

2053 







SC A MOO 

07204 

5719* 

6043 







SC AMI 

0721 1 

5724* 

5747 







SCL 

7 0440 A 

632* 








SC no NT 

00565 

12 31* 

2279 

2283 

2291 

2295 

2296 

2298 

2299 



2307 

2317 

2349 

2350 

2351 

2352 



SCR 

704424 

6 3 6 * 








SCRIP 

00200 

301 

1018* 

2458 

2784 

4585 

4697 

4717 

4728 



47 4 4 

4810 

4854 

5562 

5784 

5948 

6394 

6407 



6437 

6443 

7433 

7509 

7788 

8176 



SCRIPS 

00205 

301 

1023* 

2468 

2794 

4538 

4548 

4579 

4584 



4596 

5561 

7425 

7787 

8162 




SECOND 

01531 

301 

211 t 

2112 

2116 

2230* 




SET 

13213 

3482 

8148* 

8183 






SET I 0 

07107 

302 

2634 

2960 

5643* 

5646 

5649 

5686 

5688 



6316 

6389 

6399 

6423 

6433 

6454 

6477 

6488 



7190 

7704 

7712 

7714 

7715 

7721 

7727 

7731 



7736 

7751 

8011 

8061 

8187 

8302 



SETPRT 

03155 

3096 

3109 

3127* 

3141 





SET? 

1 3244 

6254 

8181 * 







SLASH 

07315 

5 817* 

5874 







SLASH 1 

07317 

5813 

5819* 







SI* ICE 

00006? 

166 

167* 

259 






SLPCHK 

0310? 

2268 

3083* 







SLPCK1 

0 310 3 

. 3084* 

3095 









PAGF: 2 47 


MUMPS 


CROSS REFERENCE 


SLPCK2 

03112 

309 1 * 

3102 

3108 

3124 





SLPCMT 

00571 

1 235* 

2149 

2266 

2269 

3097 

3113 



SLPHMG 

0 3117 

3088 

3096* 







SLPTMp 

00572 

1237* 

3128 

3084 

3085 

3091 

3105 

3106 

3120 

3121 

sir 

704422 

635* 








SMAFU 

14154 

315 

1571 







SPEC02 

000035 









SPEC 0 3 

000037 









SPEC 0 4 

000014 









SPOI M T 

00166 

302 

1007* 

2438 

2764 

3607 

3619 

3627 

3633 



3663 

3678 

3679 

4295 

4300 

4301 

4324 

4325 



4 344 

4 3 48 

4352 

6315 

6533 

6535 

65 36 

6537 



65 39 

6541 

6728 

6731 

7702 

7 7 J P 



SRR 

704412 

631* 

1649 

1652 

1657 

1661 

1666 

1670 

1675 



1679 

1684 

1688 

1693 

1697 

1702 

1706 

1711 



1715 

1820 

1823 

1841 

1845 

1863 

1867 

18 85 



1889 

1977 

1907 

1911 

1929 

1933 

1951 

1955 

1973 

SSF 

704401 

630* 

1647 

1655 

1664 

1673 

168? 

1691 

1700 



1709 

1971 

1818 

1839 

1861 

1883 

1905 

1927 

1949 

SSL 

704421 

633* 








STACHO 

01562 

2269* 

3094 







STACH1 

01570 

2275* 

2358 







ST AC 0 2 

01620 

2299* 

2309 







STAC H 3 

001632 

2287 

2297 

2311 * 






STACH4 

01571 

302 

2276* 

2320 






S T A C rt 7 

01623 

2282 

2303* 







STACH8 

001557 

302 

2264* 

2327* 






ST AC HI 9 

01600 

2283* 

2305 







STACK 

00165 

302 

1 006* 

2436 

2762 

3601 

3625 

3635 

3666 



3680 
77 13 

3683 

4308 

4313 

4345 

6313 

6538 

7705 

STAR 

0731 1 

5810* 

5872 







STATCH 

01557 

302 

2266* 

2329 






STATX 

00330 

302 

11 39* 

2277 

3093 





STAT1 

00301 

302 

1138* 

1340 

22 7 8 

2348 

2681 

2688 

3083 



3129 








STEMP 

00566 

1 232* 

3132 

3137 






STEMP2 

00567 

1 23 3* 

31 30 

3133 

3135 

3136 




STEP 

05123 

302 

2594 

2920 

4092 

4361 * 

4366 

438 1 

4429 



7266 

7 35 8 

7628 

7829 

7840 

7959 

7967 

7977 



7981 

7986 

7999 

8334 





STEP1 

051 37 

4370 

437 3* 

4382 






S T M 0 M P 

00746 

1475* 








STMLP2 

000742 

1453* 








STMQMY 

000734 

1 4 1 1 * 








S T M U B F 

00747 

1 476* 








STM OCR 

000745 

1468* 








STMUDC 

000735 

1418* 








STMUDT 

000744 

1461* 








STMULP 

000741 

1 446* 
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MUMPS 


CROSS REFERENCE 


STMUVIT 

000740 

1439* 








ST MU M2 

00733 

1410* 








STMUPT 

00743 

1 460* 








STMfJRF 

000737 

3 4 3 2 * 








ST'MfJRP 

000736 

1 425* 








STOP 1 

03744 

303 

2604 

2930 

3598* 

3616 

4009 

4018 

4027 



4039 

4108 

6990 

6997 

7008 

701.2 

7016 

70 31 



7349 

7 374 







S T 0 P 2 

0 4034 

2606 

29 32 

3660* 

3676 

4760 

4782 

4804 

4820 



4947 

4924 

4973 

4999 

7777 

7853 

7867 

7887 



7910 

7944 







STR ACC 

000031 

236* 

1103 

2707 

3252 

5710 

5991 

5994 

7893 

STRDEF 

0 5 7 0 4 

4854* 

5008 







STRING 

0001 1 1 

226 

227* 

229 

230* 

232 

233* 

235* 

235 



236 

246 

247 






STRO 

07432 

5734 

5898* 







STRO. 1 

07435 

5901* 

5910 

5914 






STR1 

07525 

5831 

5971* 







STR1 . 1 

007612 

5984 

5988 

6024* 






STR1 ,2 

07601 

6009 

6015* 







SIR 1 ,4 

07610 

6014 

6022* 







STR2 

07612 

6025* 

6031 

6035 






STR 3 

07625 

6000 

6023 

6026 

6039* 





STR3 , 1 

07627 

5905 

6041* 

6088 






STR 3 „ 2 

07645 

6048 

6055* 







STR 3 . 3 

07646 

6050 

6056* 







STR 4 

007662 

303 

343 

6071 * 






SU3DSK 

0071 7 

1 390* 

2359 

2364 






SUBFXP 

07453 

5728 

5919* 







SIJBMER 

000001 

105 

106* 

1 390 

1392 

1395 




SUBtfiJM 

000061 

1 093* 

1095* 

1095 

1098* 

1098 

1101 



SUBOPT 

04710 

303 

2588 

2914 

3167 

3181 

3205 

3207 

3404 



1437 

4166* 

417? 

4178 

4574 

5124 

5200 

5506 



6110 

7409 

7783 

8015 

8153 




S USQUE 

000720 

303 

408 

1391* 

2339 

2369 

3500 



SUB SCR 

07467 

5783 

5936* 







SUM 

00215 

303 

1035* 

2492 

2818 

4463 

4474 

5157 

5712 



5881 

5884 

5892 

5924 

5941 

5962 

6386 

6402 

SVAR 

00146 

303 

965* 

3610 

3612 

3613 

3670 

3672 

3673 



4303 

4304 

4349 

4351 

6548 

6549 



SVE 

05363 

30 3 

34 3 

2632 

2958 

4570* 

4603 

4617 

5176 

■SVE1 

05421 

4573 

4607* 







SWAPSW 

00652 

303 

1344* 

2186 

2189 

3012 

3353 

3502 

3522 



3945 

4010 

4100 

4109 

4649 

5092 

621? 

7044 



7 364 

7375 

7657 

7765 

8424 




SWAPSZ 

000174 

1101* 

1103 

2699 






SWIM 

00675 

1 372* 








SWNUM 

1 2745 

7834 

7 9 6 6 * 







S W P C U T 

00173 

303 

1013* 

2448 

2774 

3013 




SWPIN 

02327 

2375 

2677* 

2997 






SWPINO 

03040 

3028 

3034* 







SWPIM1 

03064 

3057* 

3071 







SWPIN2 

03067 

3054 

3061* 
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MUMPS 


cross reference; 


SWPI 43 

003000 

2373 

2376 

2999* 






SWPIN4 

02375 

27 20* 

2723 







SWPOK 

003052 

3040 

3044* 







SwPOK2 

03062 

30 36 

3055* 







swpnjT 

01725 

2374 

2399* 

2402 

2674 





S WPP TR 

00702 

1 377* 








sy m 

00177 

304 

1017* 

2456 

2782 

4583 

4656 

4761 

4783 



4805 

4821 

4848 

5560 

5757 

5775 

5794 

5797 



5944 

5959 

6122 

6123 

6124 

6142 

6143 

6147 



6148 

6158 

6162 

6164 

6165 

6167 

6182 

6183 



6186 

6187 

6188 

6192 

6193 

6194 

6198 

6200 



6301 

6302 

6307 

6317 

6328 

6376 

6434 

6476 



6486 

7431 

7508 

7 7 8 6 

8177 




S Y M R E G 

00170 

304 

1009* 

2442 

2768 

3605 

3621 

3675 

3695 



4296 

4321 

4660 

4758 

4780 

4802 

4818 

4845 



4912 

4969 

4995 

7499 

8213 




SYMBOL 

05434 

304 

2600 

2926 

4587 

4644* 

4650 

4655 

4740 



4863 

4874 

4894 

4925 

4960 

5011 

5039 

5096 



5090 

5100 

5567 

5826 

7435 

7511 

7791 

8180 

SYMB3T 

00135 

304 

953* 

2683 

2710 

2717 

2718 

7776 


SYMENO 

00153 

976* 

2725 

4657 

4695 

7667 

8219 



SYMRX 

006166 

4743 

4766 

4789 

4832 

4866 

4883 

4927 

4963 



5014 

5087* 







SYMS 

00204 

304 

1 0 2 2 * 

2466 

2792 

4529 

4531 

4578 

4582 



4597 

5559 

6290 

6292 

6305 

7430 

7785 

8161 

SYNTAX 

0 3724 

304 

344 

2602 

2928 

3387 

3414 

3574* 

3581 



3587 

3589 

3714 

3718 

3721 

3728 

37 32 

3743 



3755 

3759 

3762 

3775 

3777 

3796 

3899 

4516 



4533 

5335 

5373 

5383 

5400 

5416 

5724 

5751 



5762 

5779 

5789 

5796 

5803 

6280 

6294 

7285 



8081 

8096 







SYS ID 

0061 1 

1285* 








SYSTAB 

000606 

719 

1280* 







SYSVAR 

000015 

975* 

1378 

2685 






SYS VMM 

0 0 7 0 3 

1 378* 








S2BACK 

05046 

4?98* 

4326 







TALL 

1 3301 

81 89 

821 3* 







T ALL t 

1 3303 

8215* 

8252 

8254 

8260 

8286 




TALL2 

13315 

8225* 

8240 







TALL4 

1 3353 

8257* 

8266 







TARRAY 

013357 

8 24 3 

8263* 







TARR 1 

1 3364 

8271 * 

8290 







TARR2 

13400 

8 2 8 4 * 

8299 







TAS TR 

1 3407 

8275 

8292* 







TCF 

700402 

575* 

2057 







TE M P 

00202 

304 

343 

1020* 

2462 

2788 

4464 

4473 

5711 



5745 

5836 

5898 

5908 

5926 

5943 

5960 

5971 



6029 

6388 

6400 

7884 

7933 




T E m p x 

1 4155 

31 5 








TEMPI 

00224 

304 

343 

1 042* 

2506 

2832 

4245 

5171 

5593 



7846 

7898 

8202 






TEMP? 

00227 

305 

10 45* 

2512 

2838 

4274 

5177 

5332 

5634 



5979 

7862 

7929 

7930 

7936 

7941. 
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mumps 


TERM 

00216 

305 

103 6* 

2494 

2820 

4462 

4475 

5159 

5717 



5838 

5847 

5854 

5859 

5878 

5923 

5940 

5963 



6 38 5 

6403 







TIMESL 

00721 

1 39 8* 

3009 







TLS 

700406 

57 6* 

2074 

2156 






TP IN 

14156 

374 

1 176 







TRY«SC 

12575 

7858* 

7864 







TSF 

700401 

574* 

1734 







TSTR 

0 7 0 21 

2646 

2972 

5587* 

5602 

8253 

8298 



TT 

0 0 3 3 2 

1150* 








TT A LE M 

000031 

178 

179* 







TTALFL 

000012 

181 

182* 







T T C H A R 

000031 

175 

176* 

257 






TTCHR 

000062 









ttse r 

14157 

374 

1651 

1660 

1669 

1678 

1687 

1696 

1705 



1714 

1822 

1844 

1866 

1888 

1910 

1932 

1954 



1976 

2051 

2066 






TTWORD 

000015 

257* 








TVAR 

00147 

966* 

3016 







TYPE 

13250 

3483 

8187* 







TYPE2 

13263 

8195 

8198* 

8209 






TYPE3 

1 3274 

8192 

8207* 







T 1 

00243 

1 057* 

2536 

2862 

7417 

7437 

7496 

7521 

7525 



7 5 30 

7535 

7538 

7540 

7551 

7554 

7560 

7567 



8054 








T2 

00244 

1058* 

2538 

2864 

7418 

7442 

7522 

7542 

7552 



7559 

7572 

8053 






T 3 

00245 

1 059* 

2540 

2 8 66 

7419 

7531 

7558 

7580 

7583 



7594 

7600 

7608 

8052 





UR AC K 

05105 

4343* 

4356 







11 M I M US 

07231 

5721 

5743* 







no LOCK 

1 4160 

315 

3484 







0 M 0 T 

06201. 

5108* 

5121 







UNSAVE 

051.03 

305 

344 

2592 

2918 

3029 

3250 

3301 

4037 



4041 

4044 

4045 

4054 

4057 

4293 

4305 

4 341* 



4353 

4354 

4357 

4471 

4555 

4595 

4708 

4721 



47 3 3 

4914 

4917 

4920 

5150 

5264 

5461 

5480 



5958 

60 81. 

6348 

6367 

6396 

6432 

7221 

7327 



7486 

7557 

7604 

8048 

8103 

8175 

8224 

8225 



8239 

8270 

8285 






UP LU'S 

07233 

5723 

5745* 







USABLE 

00277 

305 

1103* 

2709 






USER 

00241 

305 

1 055* 

2532 

2858 





USERS 

00665 

305 

1357* 







V A L 

00207 

3C5 

1025* 

2472 

2798 

3900 

3940 

3954 

4019 



4056 

4091 

4365 

4368 

4380 

4389 

4396 

4406 



4418 

4419 

4427 

4752 

4764 

4799 

4943 

4956 



4964 

5067 

5078 

5085 

5142 

5161. 

5162 

5319 



5321 

5*50 

5456 

5464 

5471 

5475 

5485 

5524 



5531 

5534 

5620 

5622 

5718 

5744 

5834 

5835 



5844 

5851 

5868 

5893 

5925 

5942 

5961 

6066 



6150 

6159 

6324 

6327 

6353 

6362 

6368 

6387 



6401 

678? 

6816 

6820 

6834 

6850 

7260 

7 311 
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7 323 

7397 

7497 

7503 

77 39 

78 39 

7937 

7958 



7960 

7979 

7984 

8144 

8316 




VALE 

0021 1 

356 

1030* 

2482 

2808 

4544 

4556 

4748 

4795 



4878 

4882 

4939 

4949 

5021 

5063 

5082 

5564 



5701 

6085 

6639 






VARLEM 

000001 









VAR MUM 

000074 

1 069* 

1101 







VBLOCK 

00750 

305 

1 491 * 

1 561 

8515 





V E M 0 

001006 

306 

1541* 

1561 






VU 

000001 

202 

20 3* 







W 

000001 

6 8 9 * 








WATHMG 

03134 

3090 

3109* 







WATH 1 

0 315 2 

3112 

3116 

3123* 






WHOPTR 

00650 

1 342* 








WH3TAB 

00331 

306 

1 1 48* 

1 342 

1343 

3355 

5668 



W f M 

06343 

5217* 

5272 

5295 

5306 

5310 

5323 

5347 


W M ASK 

03154 

31 18 

3125* 







WRITE 

13417 

3486 

8302* 







WRITE 1 

1 3441 

8 304 

8320* 

8 338 






WRITE2 

1 3460 

8326 

8334* 







WRIT E 3 

13462 

8311 

8 33 3 

8 3 3 6 * 






W R I T E 4 

1 3453 

5615 

8329* 







wRLIME 

12735 

7951 

7955* 







WPP ART 

07041 

306 

2558 

2884 

5095 

5099 

5604* 

5623 

8317 



8328 








WRSTEP 

07066 

2628 

2954 

4952 

5035 

5038 

5042 

5610 

5625* 



5641 

7961 

8335 






WRTCMT 

0 017 5 

306 

1015* 

2452 

2778 





W RTS W 

00172 

30b 

1 0 1 1 * 

2446 

2772 

6131 

6208 

6607 

6647 



682 3 

7106 

7126 

7130 

7182 

7745 

7755 


W T I ■ ' ^ E R 

000074 

169 

170* 

1517 






WVAR 

00144 

306 

96 3* 

3032 

7198 

8115 




xeooLi 

06207 

5117* 

5248 







X BOOL 2 

06210 

51 18* 

5239 







X ROOf, 3 

0621 1 

5109 

5 119* 







XCCORW 

1 3555 

8366 

8434* 







XCOTS 

13600 

9386 

8417 

8462* 

8488 

8491 

8498 

8508 


XCOISt 

13612 

8467 

8474* 







XCPTS2 

13616 

847? 

8487* 







XCDIS4 

1 3625 

8476 

8501* 







XCOKR 

1 3527 

8364 

8 401* 







XCOKR1 

1 35 37 

8368 

8 4 1 . 4 * 







XCOK 

13514 

8359 

8378* 







XCERR 

13623 

8470 

8471 

8481 

8484 

8 493* 

8499 

8503 

8507 

X C HI . 1 

05003 

4236 

4 2 4 0 * 







XCH1 .2 

05010 

4234 

4239 

4245* 






XCH? 

04675 

41 44 

4149* 







X C H 2 . 1 

05027 

4265 

4269* 







XCH2 , 2 

05034 

4263 

4268 

4274* 






xcn 

04765 

307 

3305 

3309 

3374 

3927 

4193 

4217* 

5705 



5986 

6017 

6018 

6047 

7201 

7890 

7989 

8073 



8089 

8118 







XCI2 

04766 

4218* 

6017 
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XCT3 

0 4 7 6 7 

307 

3297 

3315 

3923 

4219* 

5912 

6010 



6049 

7906 

7923 

8127 




XCDM 

1 3467 

3487 

8348* 






XCOMEX 

13547 

8388 

8422* 






XCQREX 

1 3550 

842 3* 

8451 






XCGi 

04704 

30 7 

3384 

3918 

4150 

4157* 

4169 

4241 



4599 

5169 

5429 

5591 

5632 

5977 

7213 



7282 

7 30 2 

7634 

7847 

7890 

7939 

7991 



8086 

8200 






X C 0 2 

04705 

3920 

4 1 5 8 * 






XC03 

04706 

3556 

4159* 

4176 

5435 




X C □ 4 

04707 

41 60* 







XDECM5 

0 410 5 

3715* 

37 3 3 






XDEC09 

041 12 

3720* 

3734 

3749 

3754 

3757 



X0EC2A 

04246 

3816 

3819* 






XDEC20 

04253 

3818 

3824* 






XOISLG 

14161 

315 

1081 






XOOIJT 

04206 

3726 

3777* 






xooure 

04207 

3760 

3763 

3776 

37 78* 




XDOUTl 

04222 

3784 

3789* 






XDOUI2 

04227 

3782 

3794* 






XFORMA 

06674 

5494* 

5570 






XFR 

MACRO 

672 







XFROM 

001.00 

306 

890* 

906* 





XFR. 1 

00024 

749* 

896 






XFk.2 

00025 

750* 

900 






XFO 

06675 

5495* 

5576 






XF1 

06710 

5506* 







XGASS 

10113 

1 0 8 3 

6277* 






XGLD3A 

10410 

1 087 

6524* 






XGSYM 

10152 

1 085 

631 3* 






XLOKOT 

03702 

3537 

3540* 






xnijT 

03175 

3147* 







x out or 

0 3 2 6 0 

441 

3204* 






X00T1 

03214 

3158 

3166* 






XOUTIO 

03322 

3151 

3243* 






XOUT2 

03225 

3176* 

3214 

3218 





XQUT3 

03255 

367 

3201 * 






XOUT4 

03233 

3182* 

3210 






X OUT 4 A 

03253 

306 

2395 

3198* 

8034 




X 0 f IT 5 

03236 

3185* 

3227 

3231 

3238 




XOUT5A 

03241 

305 

3188* 

3241 





XQUT5B 

03247 

3194* 







XOUT6 

03267 

3170 

3212* 






XQUT7 

0 3277 

3172 

3221 * 






XOUT8 

03314 

3174 

3235* 






XOUT9 

03320 

3165 

3240* 






XPACK2 

03334 

2396 

3256* 

3 27 2 

3279 

3283 

3295 

3299 



3317 

3337 






XPART1 

05164 

4 397* 

4408 






XPLAC2 

04371 

3921. 

3926* 






XPLAC3 

0 4 3 7 4 

3919 

3924 

3929* 





XPfj AC4 

04373 

3925 

3928* 







6033 


4270 

7272 

8071 


3306 
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XPLi AC5 

0441-4 

3946* 

3957 






XPROOA 

03642 

3499* 

3513 






XR 

001 60 

988* 

2260 

2412 

27 3 8 

3005 



XRELI 

06313 

1 075 

1077 

1079 

5193* 




XRETl 

03752 

3605* 

3648 






XRET2 

04042 

3666* 

3698 






XSROPt 

04717 

4170 

4173* 






XSETO 

07140 

5670* 







XSETOt 

07150 

5678* 

5682 






XSET1 

07160 

5672 

5686* 






XSTOll 

04026 

3623 

3649* 






XSTR1 

07030 

5594* 

5597 






XSY^i 

03733 

357 7 

358 1 * 






xsy\ r 2 

03741 

3584 

3587* 






XTSTR2 

07034 

5595 

5598* 






X.VAR 

0015 0 

306 

967* 

3180 

3182 

3184 

3215 

3222 



3289 

3291 

3324 

3345 

5514 

5522 


X VM 

000001 

118 

119* 

294 

660 

1776 

2031 

2219 



2244 

3000 

3045 

3063 

4651 

5645 


XWRPAR 

07042 

5605* 

5621 






YVAR 

00151 

968* 

322 3 

3224 

3229 

3236 

3325 

3326 



3347 

8029 

8031 





ZERO 

13577 

8449 

8453* 






%E 

01006 

306 

1540* 

1541 






iAr 

00772 

1517* 


CLEAR 

MACRO 



CLOSE 

MACRO 



DRK 6 

01270 

1733 

2043* 

OBTP 

01303 

1736 

2057* 

0RTP1 

01315 

2063 

2071* 

ole re 

MACRO 



enter 

MACRO 



EXIT 

MACRO 



FSTAT 

MACRO 



GET 

MACRO 



GTBiIE 

MACRO 



GVBUF 

MACRO 



ini r 

MACRO 



IORS 

00606 

1 282* 

2181 

JCFN1 

03324 

306 

3150 

M T A PE 

MACRO 



M T R A M 

MACRO 



OVRLA 

MACRO 



PUT 

MACRO 



R A ti 0 

MACRO 



READ 

MACRO 



RENA M 

MACRO 



RTR AN 

MACRO 



SEEK 

MACRO 



SETUP 

MACRO 



SYS ID 

MACRO 



TIMER 

MACRO 



TRAN 

MACRO 




3237 

2222 

3346 
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MUMPS CROSS REFERENCE 


• USER 

MACRO 




. w Air 

MACRO 




. WAITR 

MACRO 




i«J DT PC’ 

» *■< ; \ * a w 

M * <"* d n 




. XV M 0F 

MACRO 




• X VMDN 

MACRO 




• * A 

0 0 000 0 

3 345* 

8496 


■ • 8 M 

13635 

306 

8505 

8511 * 

• • V- 

1 60000 

26 1 * 

8 3 46 

8444 

. .0 

001600 

R 3 4 6 ^ 

8501 

8504 

* 3 2 K 

000040 

262 

263* 




